expected <- eval(parse(text="structure(c(3, 0, 1, 5, 6, 2, 11, 0, 0, 0, 0, 3, 11, 2, 4, 6, 7, 7, 11, 3, 6, 5, 6, 6, 11, 7, 0, 5, 6, 9, 11, 6, 7, 0, 1, 4, 11, 9, 6, 6, 0, 0, 11, 4, 6, 5, 4, 0, 3), .Dim = c(7L, 7L), .Dimnames = list(c(\"privileges\", \"rating\", \"complaints\", \"learning\", \"raises\", \"critical\", \"advance\"), c(\"advance\", \"critical\", \"raises\", \"learning\", \"complaints\", \"rating\", \"privileges\")))"));          
test(id=0, code={          
argv <- eval(parse(text="list(structure(c(3.08577921002324, 0.531033162063639, 1.47434325842442, 5.64214292692797, 6.21994378924106, 2.27200744902353, 11.9999901, 0.424434048635841, 0.549397569660826, 0.973929660925175, 1e-07, 3.54172739357752, 11.9999901, 2.27200744902353, 4.47284349010678, 6.43648940805496, 7.50963843787849, 7.11757579203344, 11.9999901, 3.54172739357752, 6.21994378924106, 5.1224060214714, 6.89175397596987, 6.52603528890926, 11.9999901, 7.11757579203344, 1e-07, 5.64214292692797, 6.00414304408873, 9.63018799510384, 11.9999901, 6.52603528890926, 7.50963843787849, 0.973929660925175, 1.47434325842442, 4.2100341139702, 11.9999901, 9.63018799510384, 6.89175397596987, 6.43648940805496, 0.549397569660826, 0.531033162063639, 11.9999901, 4.2100341139702, 6.00414304408873, 5.1224060214714, 4.47284349010678, 0.424434048635841, 3.08577921002324), .Dim = c(7L, 7L), .Dimnames = list(c(\"privileges\", \"rating\", \"complaints\", \"learning\", \"raises\", \"critical\", \"advance\"), c(\"advance\", \"critical\", \"raises\", \"learning\", \"complaints\", \"rating\", \"privileges\"))))"));          
do.call(`floor`, argv);          
}, o=expected);          

