expected <- structure(list(Location = c(0.15998329123474, 0.533277637449134, 
1.5998329123474, 2.6797201281819, 3.27965747031217, 3.87959481244245, 
5.51942354759854, 6.54598299968812)), .Names = "Location", row.names = c(NA, 
-8L), class = "data.frame")
test(id=3, code={
argv <- structure(list(x = structure(list(ID = c(13, 41, 121, 202, 247, 
292, 415, 492), Location = c(0.15998329123474, 0.533277637449134, 
1.5998329123474, 2.6797201281819, 3.27965747031217, 3.87959481244245, 
5.51942354759854, 6.54598299968812), Peak_Value = c(0.997547264684804, 
0.949162789397664, 0.990440013891923, 0.973478735915337, 0.93861267739627, 
0.957347289323235, 0.924803043529451, 0.968307855031101)), .Names = c("ID", 
"Location", "Peak_Value"), row.names = c(NA, -8L), class = "data.frame"), 
    i = 2), .Names = c("x", "i"))
do.call('[.data.frame', argv);
},  o = expected);

