expected <- eval(parse(text="structure(c(-1.82608695652174, 1.17391304347826, 1.17391304347826, 4.17391304347826, -1.82608695652174, -1.82608695652174, 2.17391304347826, 0.173913043478262, 4.17391304347826, -0.826086956521738, 2.17391304347826, 2.17391304347826, 2.17391304347826, 4.17391304347826, -2.82608695652174, 2.17391304347826, 2.17391304347826, -0.826086956521738, -3.82608695652174, -1.82608695652174, -4.82608695652174, 0.173913043478262, -7.82608695652174, 1.15, 5.15, -0.85, 1.15, -2.85, -2.85, -1.85, NA, 6.15, -2.85, 0.15, 3.15, 0.15, NA, NA, 1.15, -1.85, 0.15, -0.85, -0.85, 2.15, -2.85, -2.85, -32.2608695652174, -54.2608695652174, -36.2608695652174, -45.2608695652174, 194.739130434783, 130.739130434783, -35.2608695652174, -59.2608695652174, -63.2608695652174, 25.7391304347826, -25.2608695652174, -44.2608695652174, -16.2608695652174, -63.2608695652174, -53.2608695652174, -56.2608695652174, -19.2608695652174, -35.2608695652174, -39.2608695652174, -7.26086956521739, -38.2608695652174, 213.739130434783, 158.739130434783, 8.09999999999999, -94.9, -59.9, -49.9, 176.1, 11.1, -59.9, NA, 100.1, 15.1, 21.1, 84.1, 65.1, NA, NA, -63.9, -37.9, -26.9, -128.9, 42.1, -87.9, 118.1, -30.9), .Dim = c(23L, 4L), .Dimnames = list(NULL, c(\"V1\", \"V2\", \"V3\", \"V4\")))"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(c(9, 12, 12, 15, 9, 9, 13, 11, 15, 10, 13, 13, 13, 15, 8, 13, 13, 10, 7, 9, 6, 11, 3, 5, 9, 3, 5, 1, 1, 2, NA, 10, 1, 4, 7, 4, NA, NA, 5, 2, 4, 3, 3, 6, 1, 1, 63, 41, 59, 50, 290, 226, 60, 36, 32, 121, 70, 51, 79, 32, 42, 39, 76, 60, 56, 88, 57, 309, 254, 146, 43, 78, 88, 314, 149, 78, NA, 238, 153, 159, 222, 203, NA, NA, 74, 100, 111, 9, 180, 50, 256, 107), .Dim = c(23L, 4L), .Dimnames = list(NULL, c(\"V1\", \"V2\", \"V3\", \"V4\"))), structure(c(10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9), .Dim = c(23L, 4L)))"));               
do.call(`-`, argv);               
}, o=expected);               

