expected <- eval(parse(text="structure(c(0.306469854895937, 0.262364229584951, -0.101096103910292, -0.589468317957782, 0.306469854895937, 0.262364229584951, -0.101096103910292, -0.589468317957782, 0.306469854895937, 0.262364229584951, -0.101096103910292, -0.589468317957782), .Dim = c(12L, 1L), .Dimnames = list(c(\"1\", \"3\", \"5\", \"7\", \"9\", \"11\", \"13\", \"15\", \"17\", \"19\", \"21\", \"23\"), NULL))"));      
test(id=0, code={      
argv <- eval(parse(text="list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0), .Dim = c(12L, 4L), .Dimnames = list(c(\"1\", \"3\", \"5\", \"7\", \"9\", \"11\", \"13\", \"15\", \"17\", \"19\", \"21\", \"23\"), c(\"(Intercept)\", \"M.userY\", \"TempLow\", \"M.userY:TempLow\")), assign = 0:3, contrasts = structure(list(M.user = \"contr.treatment\", Temp = \"contr.treatment\"), .Names = c(\"M.user\", \"Temp\"))), c(0.262364229584951, -0.851832547542732, 0.0441056253109867, 0.444266588736502))"));      
do.call(`%*%`, argv);      
}, o=expected);      

