expected <- eval(parse(text="structure(c(25.6904651573303, 23.3023603954621, 26.6645832519468, 22.3606797749979, 20.2484567313166, 17.5783958312469, 23.3666428910958, 18.7349939951952, 16.4012194668567, 14.247806848775, 19.2353840616713, 13.8924439894498, 13.4536240470737, 10.816653826392, 15.5884572681199, 11.6619037896906, 10.816653826392, 9.32737905308882, 12.4096736459909, 9.16515138991168), .Dim = 4:5, .Dimnames = list(c(\"Rural Male\", \"Rural Female\", \"Urban Male\", \"Urban Female\"), c(\"70-74\", \"65-69\", \"60-64\", \"55-59\", \"50-54\")))"));            
test(id=0, code={            
argv <- eval(parse(text="list(structure(c(660, 543, 711, 500, 410, 309, 546, 351, 269, 203, 370, 193, 181, 117, 243, 136, 117, 87, 154, 84), .Dim = 4:5, .Dimnames = list(c(\"Rural Male\", \"Rural Female\", \"Urban Male\", \"Urban Female\"), c(\"70-74\", \"65-69\", \"60-64\", \"55-59\", \"50-54\"))))"));            
do.call(`sqrt`, argv);            
}, o=expected);            

