expected <- eval(parse(text="structure(c(0.0394556761478965, 0.0353930191803619, 0.0421772348795039, 0.0302920451103359, 0.0377457762283076, 0.0338591835815583, 0.0403493901288877, 0.0289792716248635, 0.0342125137383397, 0.0306897327119817, 0.0365724115929804, 0.0262666138482847, 0.0422657427158027, 0.0379137398889158, 0.0451811331581029, 0.032449470138841), .Dim = c(4L, 4L), .Dimnames = list(c(\"DAX\", \"SMI\", \"CAC\", \"FTSE\"), c(\"DAX\", \"SMI\", \"CAC\", \"FTSE\")))"));             
test(id=0, code={             
argv <- eval(parse(text="list(structure(c(0.0394556761478965, 0.0353930191803619, 0.0421772348795039, 0.0302920451103359, 0.0377457762283076, 0.0338591835815583, 0.0403493901288877, 0.0289792716248635, 0.0342125137383397, 0.0306897327119817, 0.0365724115929804, 0.0262666138482847, 0.0422657427158027, 0.0379137398889158, 0.0451811331581029, 0.032449470138841), .Dim = c(1L, 4L, 4L), .Dimnames = list(\"1\", c(\"DAX\", \"SMI\", \"CAC\", \"FTSE\"), c(\"DAX\", \"SMI\", \"CAC\", \"FTSE\"))))"));             
.Internal(drop(argv[[1]]));             
}, o=expected);             

