expected <- "double"    
test(id=4, code={    
argv <- structure(list(x = structure(c(1, 0.666666666666667, 0.333333333333333,     
0, -0.333333333333333, -0.666666666666667, -1, -1.33333333333333,     
-1.66666666666667, 1.5, 1, 0.5, 0, -0.5, -1, -1.5, -2, -2.5,     
3, 2, 1, 0, -1, -2, -3, -4, -5, -Inf, -Inf, -Inf, NaN, Inf, Inf,     
Inf, Inf, Inf, -3, -2, -1, 0, 1, 2, 3, 4, 5, -1.5, -1, -0.5,     
0, 0.5, 1, 1.5, 2, 2.5, -1, -0.666666666666667, -0.333333333333333,     
0, 0.333333333333333, 0.666666666666667, 1, 1.33333333333333,     
1.66666666666667, -0.75, -0.5, -0.25, 0, 0.25, 0.5, 0.75, 1,     
1.25, -0.6, -0.4, -0.2, 0, 0.2, 0.4, 0.6, 0.8, 1), .Dim = c(9L,     
9L))), .Names = "x")    
do.call('storage.mode', argv);    
},  o = expected);    
    
