expected <- eval(parse(text="structure(c(315.654444444444, 316.117361111111, 315.756111111111, 315.400277777778, 314.998611111111, 315.341111111111, 315.909861111111, 315.966111111111, 316.025277777778, 316.118194444444, 316.245277777778, 316.377361111111, 316.504444444444, 316.617361111111, 316.676111111111, 316.710277777778, 316.738611111111, 316.771111111111, 317.529861111111, 317.056111111111, 316.345277777778, 316.618194444444, 316.425277777778, 316.977361111111), .Tsp = c(1959, 1960.91666666667, 12), class = \"ts\")"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(c(315.42, 316.31, 316.5, 317.56, 318.13, 318, 316.39, 314.65, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.74, 314, 313.68, 314.84, 316.03), .Tsp = c(1959, 1960.91666666667, 12), class = \"ts\"), structure(c(-0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074, -0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074), .Tsp = c(1959, 1960.91666666667, 12), class = \"ts\"))"));               
do.call(`-`, argv);               
}, o=expected);               

