expected <- structure(list(hours = c(216.27793530786, 14.3454081012111, 16.2639155548331, 
77.062914516272, 42.3463070611469, 8.07456175870417, 42.818290162948, 
84.9982217741369, 6.97921341420927, 143.155918813582, 16.0908251257365, 
214.204015006233)), .Names = "hours", row.names = c("1", "2", 
"3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), class = "data.frame")
test(id=567, code={
argv <- structure(list(x = structure(list(hours = c(216.27793530786, 
14.3454081012111, 16.2639155548331, 77.062914516272, 42.3463070611469, 
8.07456175870417, 42.818290162948, 84.9982217741369, 6.97921341420927, 
143.155918813582, 16.0908251257365, 214.204015006233)), .Names = "hours", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), class = "data.frame"), 
    name = "hours", value = c(216.27793530786, 14.3454081012111, 
    16.2639155548331, 77.062914516272, 42.3463070611469, 8.07456175870417, 
    42.818290162948, 84.9982217741369, 6.97921341420927, 143.155918813582, 
    16.0908251257365, 214.204015006233)), .Names = c("x", "name", 
"value"))
do.call('$<-.data.frame', argv);
},  o = expected);

