expected <- eval(parse(text="structure(c(-7119.0398883232, -7763.17005897421, -7951.70996590962, -5262.58291921977, -4259.42844333474, -2033.82838296518, -742.568145846514, -1053.16285917212, -1435.32407670635, -828.001135301159, -9915.16159765877, -89873.741632463), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\")))"));              
test(id=0, code={              
argv <- eval(parse(text="list(-97.5074316406251, structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\", \"1\"))))"));              
do.call(`%*%`, argv);              
}, o=expected);              

