expected <- eval(parse(text="structure(c(NA, NA, -10.125, 10, 25.75, -8.125, -94.75, -122.5, 167.875, 189.75, -85.625, -59, 77.875, 75.875, -121.625, -88, 108.625, 28.25, -60.375, -97, 24.875, 238, -163.875, 26, 52.25, -107.875, -40.25, -49.25, 22, 229.375, NA, NA), .Tsp = c(1951, 1958.75, 4), class = \"ts\")"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(c(-50, 175, 149, 214, 247, 237, 225, 329, 729, 809, 530, 489, 540, 457, 195, 176, 337, 239, 128, 102, 232, 429, 3, 98, 43, -141, -77, -13, 125, 361, -45, 184), .Tsp = c(1951, 1958.75, 4), class = \"ts\"), structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = \"ts\"))"));               
do.call(`-`, argv);               
}, o=expected);               

