expected <- eval(parse(text="structure(list(x = c(2, 3, 4, 5, 6, 7, 8, 9, 10), y = c(0.373546189257668, 1.18364332422208, 0.164371387589953, 2.59528080213779, 1.32950777181536, 0.179531615881985, 1.48742905242849, 1.73832470512922, 1.57578135165349)), .Names = c(\"x\", \"y\"), row.names = c(NA, -9L), class = \"data.frame\")"));               
test(id=0, code={               
argv <- eval(parse(text="list(1, structure(list(x = 1:9, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492)), .Names = c(\"x\", \"y\"), row.names = c(NA, -9L), class = \"data.frame\"))"));               
do.call(`+`, argv);               
}, o=expected);               

