expected <- structure(list(lowerNorm = c(1, 0.707, 0.704, 0.634, 0.629, 0.559, 
0.554, 0.548, 0.47, 0.398, 0.391, 0.383, 0.374, 0.277, 0.186, 
0.176, 0.153, 0.138, 0.122), upperNorm = c(1, 1, 1, 0.98, 0.984, 
0.947, 0.952, 0.958, 0.91, 0.857, 0.864, 0.872, 0.881, 0.799, 
0.71, 0.72, 0.744, 0.758, 0.775), lowerNormS = c(0.911, 0.683, 
0.68, 0.614, 0.61, 0.544, 0.538, 0.533, 0.46, 0.391, 0.384, 0.376, 
0.367, 0.275, 0.189, 0.179, 0.155, 0.141, 0.124), upperNorms = c(1, 
0.997, 1, 0.97, 0.975, 0.938, 0.943, 0.949, 0.903, 0.852, 0.859, 
0.867, 0.875, 0.797, 0.713, 0.722, 0.746, 0.761, 0.777)), .Names = c("lowerNorm", 
"upperNorm", "lowerNormS", "upperNorms"), row.names = c(NA, -19L
), class = "data.frame")
test(id=2, code={
argv <- list(structure(list(lowerNorm = c(1, 0.7074793118252, 0.703783359109958, 
0.633667085530785, 0.629171386131588, 0.55900804989023, 0.553693829615336, 
0.547917347996141, 0.470383100744677, 0.397621760007547, 0.390548442517381, 
0.382779091361949, 0.374191514453686, 0.276654053495554, 0.186268067402784, 
0.176381170003996, 0.152703583557352, 0.138281755556403, 0.121518607618675
), upperNorm = c(1, 1, 1, 0.979778292620476, 0.984273992019672, 
0.946874303050947, 0.952188523325841, 0.957965004945035, 0.910009056118068, 
0.857280200776766, 0.864353518266933, 0.872122869422365, 0.880710446330628, 
0.798976198605286, 0.710090476014583, 0.719977373413371, 0.743654959860015, 
0.758076787860964, 0.774839935798692), lowerNormS = c(0.910985448809634, 
0.683392923012911, 0.679522139376878, 0.614273605024573, 0.609653530675358, 
0.543887035370979, 0.538488520130148, 0.532620411085642, 0.459604218176941, 
0.390811451215735, 0.383715321807271, 0.375920913978781, 0.367305641565109, 
0.274783502246108, 0.188735721130942, 0.178848823732154, 0.15517123728551, 
0.140749409284561, 0.123986261346832), upperNorms = c(1, 0.996879185830627, 
1, 0.969960088452818, 0.974580162802033, 0.937905681715855, 0.943304196956687, 
0.949172306001193, 0.902674026454245, 0.851952320959801, 0.859048450368266, 
0.866842858196755, 0.875458130610427, 0.797245309278501, 0.712558129742741, 
0.722445027141529, 0.746122613588173, 0.760544441589122, 0.77730758952685
)), .Names = c("lowerNorm", "upperNorm", "lowerNormS", "upperNorms"
), row.names = c(NA, -19L), class = "data.frame"), 3)
do.call('round', argv);
},  o = expected);

