expected <- eval(parse(text="structure(c(1.31425066755309, 1.44257827396628, 1.21247360039779, 1.89393744135062, 1.83198618308218, 1.26114958903728, 0.278779636494891, 1.34522629668731, 1.98243923887696, 1.15052234212935, 0.433657782165988, 0.955818387571403, 1.11512162311882, 1.71250875642162, 1.32310084730572, 1.29655030804782, 1.65055749815318, 1.8895123514743, 1.30540048780045, 1.55320552087421, 1.04874527497406, 0.774389702642403, 1.06202054460301, 1.4735539031005, 0.15930220983433, 1.5001044423584, 1.1372470725004, 1.30097539792413, 0.876166769797696, 1.33195102705835, 1.24344922953201, 0.442507961918623, 1.32310084730572, 1.16822270163462, 1.58860623988474, -1.02571308469024e-06, 1.22574887002674, 1.84526145271113, 0.535434849321281, 0.119476400947476, 0.969093657200354, 1.41160264483206, 0.867316590045061, 1.12397180287145, 1.16822270163462, 1.2655746789136, 1.01334455596352, 1.14609725225304, 0.659337365858159, 1.30097539792413, 1.84526145271113, 2.10191666553752, 1.11512162311882, 1.01776964583984, 0.862891500168744, 1.79658546407165, 1.17707288138726, 0.67261263548711, 0.738988983631866, 1.07529581423196, 0.858466410292427, 0.969093657200354, 0.787664972271354, 1.46470372334787, 0.871741679921378, 1.4735539031005, 1.24344922953201, 1.35850156631626, 1.35850156631626, 0.632786826600257, 1.73463420580321, 1.22132378015043, 1.00006928633457, 0.938118028066135, 0.951393297695086, 0.579685748084452, 0.708013354497647, 1.67710803741109, 1.82756109320587, 1.01334455596352, 1.15494743200567, 0.898292219179281, 1.03547000534511, 1.07972090410828, 0.685887905116061, 1.45142845371891, 0.845191140663476, 1.9912894186296, 1.09742126361355, 1.07529581423196, 1.53108007149262, 1.35407647643994, 1.74790947543216, 1.07087072435565, 0.96024347744772, 1.80543564382428, 1.6018815095137, 0.708013354497647, 1.46027863347155, 1.53108007149262), .Dim = c(100L, 1L), .Dimnames = list(c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\", \"11\", \"12\", \"13\", \"14\", \"15\", \"16\", \"17\", \"18\", \"19\", \"20\", \"21\", \"22\", \"23\", \"24\", \"25\", \"26\", \"27\", \"28\", \"29\", \"30\", \"31\", \"32\", \"33\", \"34\", \"35\", \"36\", \"37\", \"38\", \"39\", \"40\", \"41\", \"42\", \"43\", \"44\", \"45\", \"46\", \"47\", \"48\", \"49\", \"50\", \"51\", \"52\", \"53\", \"54\", \"55\", \"56\", \"57\", \"58\", \"59\", \"60\", \"61\", \"62\", \"63\", \"64\", \"65\", \"66\", \"67\", \"68\", \"69\", \"70\", \"71\", \"72\", \"73\", \"74\", \"75\", \"76\", \"77\", \"78\", \"79\", \"80\", \"81\", \"82\", \"83\", \"84\", \"85\", \"86\", \"87\", \"88\", \"89\", \"90\", \"91\", \"92\", \"93\", \"94\", \"95\", \"96\", \"97\", \"98\", \"99\", \"100\"), NULL))"));      
test(id=0, code={      
argv <- eval(parse(text="list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.35, 0.64, 0.12, 1.66, 1.52, 0.23, -1.99, 0.42, 1.86, -0.02, -1.64, -0.46, -0.1, 1.25, 0.37, 0.31, 1.11, 1.65, 0.33, 0.89, -0.25, -0.87, -0.22, 0.71, -2.26, 0.77, -0.05, 0.32, -0.64, 0.39, 0.19, -1.62, 0.37, 0.02, 0.97, -2.62, 0.15, 1.55, -1.41, -2.35, -0.43, 0.57, -0.66, -0.08, 0.02, 0.24, -0.33, -0.03, -1.13, 0.32, 1.55, 2.13, -0.1, -0.32, -0.67, 1.44, 0.04, -1.1, -0.95, -0.19, -0.68, -0.43, -0.84, 0.69, -0.65, 0.71, 0.19, 0.45, 0.45, -1.19, 1.3, 0.14, -0.36, -0.5, -0.47, -1.31, -1.02, 1.17, 1.51, -0.33, -0.01, -0.59, -0.28, -0.18, -1.07, 0.66, -0.71, 1.88, -0.14, -0.19, 0.84, 0.44, 1.33, -0.2, -0.45, 1.46, 1, -1.02, 0.68, 0.84), .Dim = c(100L, 2L), .Dimnames = list(c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\", \"11\", \"12\", \"13\", \"14\", \"15\", \"16\", \"17\", \"18\", \"19\", \"20\", \"21\", \"22\", \"23\", \"24\", \"25\", \"26\", \"27\", \"28\", \"29\", \"30\", \"31\", \"32\", \"33\", \"34\", \"35\", \"36\", \"37\", \"38\", \"39\", \"40\", \"41\", \"42\", \"43\", \"44\", \"45\", \"46\", \"47\", \"48\", \"49\", \"50\", \"51\", \"52\", \"53\", \"54\", \"55\", \"56\", \"57\", \"58\", \"59\", \"60\", \"61\", \"62\", \"63\", \"64\", \"65\", \"66\", \"67\", \"68\", \"69\", \"70\", \"71\", \"72\", \"73\", \"74\", \"75\", \"76\", \"77\", \"78\", \"79\", \"80\", \"81\", \"82\", \"83\", \"84\", \"85\", \"86\", \"87\", \"88\", \"89\", \"90\", \"91\", \"92\", \"93\", \"94\", \"95\", \"96\", \"97\", \"98\", \"99\", \"100\"), c(\"(Intercept)\", \"x\")), assign = 0:1), c(1.15937252188199, 0.442508987631707))"));      
do.call(`%*%`, argv);      
}, o=expected);      

