expected <- eval(parse(text="structure(c(6.26789267740715, 6.35567794419511, 6.32641618859912, 5.63884495958187, 5.61689864288488, 5.69005303187484, 5.63884495958187, NA, 5.67542215407685, 5.72663022636983, 6.40688601648809, 6.34104706639712, 6.23863092181116, 6.32641618859912, 4.77068462446567, 5.59495232618788, 5.60226776508688, 5.7851537375618, 5.69736847077384, 5.69005303187484, 5.68273759297585, 5.66079127627886, 5.59495232618788, 5.60226776508688, 6.33373162749812, 5.69736847077384, 5.58032144838989, 6.22400004401316, 6.22400004401316, 6.30446987190213, 6.26789267740715, 6.34104706639712, 6.31178531080113, 6.28983899410414, 5.71931478747083, 5.58763688728889, 5.63884495958187, 5.64616039848086, 6.29715443300313, 6.26789267740715, 6.30446987190213, 5.59495232618788, 6.39225513869009, 6.17279197172019, 6.23131548291216, 6.33373162749812, 6.31910074970012, 5.60958320398588, 6.30446987190213, 6.26057723850815, 5.60958320398588, 6.25326179960915, 6.34104706639712, 5.70468390967284, 5.58763688728889, 6.26057723850815, 6.21668460511417, 5.58032144838989, 5.77783829866281, 5.63884495958187, 5.65347583737986, 6.21668460511417, 5.69736847077384, 5.60958320398588, 6.25326179960915, 5.57300600949089, 6.41420145538708, 6.42151689428608, 6.27520811630614, 5.59495232618788, 5.72663022636983, 6.35567794419511, 5.60226776508688, 5.58032144838989, 6.24594636071016, 6.16547653282119, 6.33373162749812, 6.32641618859912, 6.31178531080113, 5.73394566526883, 5.63152952068287, 5.68273759297585, 6.31178531080113, 5.63152952068287, 6.34836250529611, 6.42883233318508, 6.28983899410414, 6.34104706639712, 6.45077864988207, 5.72663022636983, 6.22400004401316, 6.32641618859912, 6.48004040547806, 6.28252355520514, 6.39225513869009, 6.43614777208407, 5.60958320398588, 6.34104706639712, 6.3776242608921, 5.75589198196582, 6.25326179960915, 6.3849396997911, 6.30446987190213, 6.39957057758909, 6.30446987190213, 5.68273759297585, 6.36299338309411, 5.77052285976381, 6.32641618859912, 5.66810671517785, 5.58032144838989, 5.62421408178387, 6.34836250529611, 6.48004040547806, 5.58763688728889), .Dim = c(115L, 1L), .Dimnames = list(c(\"2\", \"3\", \"5\", \"7\", \"8\", \"10\", \"12\", \"14\", \"18\", \"19\", \"22\", \"24\", \"25\", \"27\", \"28\", \"30\", \"32\", \"33\", \"34\", \"35\", \"36\", \"37\", \"39\", \"42\", \"43\", \"44\", \"46\", \"47\", \"49\", \"52\", \"53\", \"54\", \"56\", \"57\", \"58\", \"61\", \"66\", \"67\", \"68\", \"69\", \"71\", \"73\", \"77\", \"79\", \"80\", \"81\", \"88\", \"90\", \"91\", \"95\", \"96\", \"100\", \"101\", \"105\", \"110\", \"111\", \"114\", \"116\", \"117\", \"118\", \"119\", \"121\", \"122\", \"124\", \"125\", \"129\", \"130\", \"133\", \"135\", \"136\", \"138\", \"140\", \"141\", \"143\", \"147\", \"149\", \"150\", \"152\", \"153\", \"155\", \"156\", \"158\", \"161\", \"163\", \"166\", \"168\", \"170\", \"172\", \"174\", \"177\", \"180\", \"181\", \"182\", \"183\", \"185\", \"186\", \"187\", \"188\", \"190\", \"192\", \"196\", \"199\", \"203\", \"204\", \"205\", \"206\", \"207\", \"208\", \"211\", \"214\", \"218\", \"219\", \"220\", \"225\", \"226\"), 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 68, 56, 60, 68, 71, 61, 68, 60, 63, 56, 49, 58, 72, 60, 70, 74, 73, 48, 60, 61, 62, 65, 74, 73, 59, 60, 76, 74, 74, 63, 68, 58, 62, 65, 57, 75, 68, 67, 64, 68, 63, 74, 51, 81, 73, 59, 61, 72, 63, 69, 72, 70, 58, 59, 75, 69, 75, 76, 49, 68, 66, 75, 60, 72, 70, 77, 48, 47, 67, 74, 56, 56, 73, 76, 71, 82, 59, 60, 62, 55, 69, 62, 62, 69, 57, 46, 65, 58, 43, 56, 74, 60, 39, 66, 51, 45, 72, 58, 53, 52, 70, 52, 63, 50, 63, 62, 55, 50, 60, 64, 76, 70, 57, 39, 75, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, NA, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(115L, 5L), .Dimnames = list(c(\"2\", \"3\", \"5\", \"7\", \"8\", \"10\", \"12\", \"14\", \"18\", \"19\", \"22\", \"24\", \"25\", \"27\", \"28\", \"30\", \"32\", \"33\", \"34\", \"35\", \"36\", \"37\", \"39\", \"42\", \"43\", \"44\", \"46\", \"47\", \"49\", \"52\", \"53\", \"54\", \"56\", \"57\", \"58\", \"61\", \"66\", \"67\", \"68\", \"69\", \"71\", \"73\", \"77\", \"79\", \"80\", \"81\", \"88\", \"90\", \"91\", \"95\", \"96\", \"100\", \"101\", \"105\", \"110\", \"111\", \"114\", \"116\", \"117\", \"118\", \"119\", \"121\", \"122\", \"124\", \"125\", \"129\", \"130\", \"133\", \"135\", \"136\", \"138\", \"140\", \"141\", \"143\", \"147\", \"149\", \"150\", \"152\", \"153\", \"155\", \"156\", \"158\", \"161\", \"163\", \"166\", \"168\", \"170\", \"172\", \"174\", \"177\", \"180\", \"181\", \"182\", \"183\", \"185\", \"186\", \"187\", \"188\", \"190\", \"192\", \"196\", \"199\", \"203\", \"204\", \"205\", \"206\", \"207\", \"208\", \"211\", \"214\", \"218\", \"219\", \"220\", \"225\", \"226\"), c(\"(Intercept)\", \"age\", \"factor(ph.ecog)1\", \"factor(ph.ecog)2\", \"factor(ph.ecog)3\")), assign = c(0L, 1L, 2L, 2L, 2L), contrasts = structure(list(`factor(ph.ecog)` = \"contr.treatment\"), .Names = \"factor(ph.ecog)\")), structure(c(6.76534252253894, -0.00731543889899693, -0.256632132912267, -0.629047717825279, -1.48257717514349), .Names = c(\"(Intercept)\", \"age\", \"factor(ph.ecog)1\", \"factor(ph.ecog)2\", \"factor(ph.ecog)3\")))"));              
do.call(`%*%`, argv);              
}, o=expected);              

