expected <- eval(parse(text="c(54, 66, 63, 7.5, 7.5, 40, 54, 68.5, 49.5, 63, 7.5, 28, 60, 19.5, 56.5, 60, 19.5, 46, 19.5, 19.5, 46, 56.5, 70, 52, 33.5, 19.5, 60, 19.5, 33.5, 19.5, 19.5, 19.5, 33.5, 33.5, 19.5, 46, 40, 7.5, 66, 28, 28, 40, 7.5, 7.5, 7.5, 7.5, 49.5, 28, 7.5, 40, 7.5, 40, 7.5, 49.5, 40, 40, 7.5, 28, 49.5, 28, 54, 63, 7.5, 66, 7.5, 28, 40, 58, 71.5, 71.5, 68.5, 40)"));        
test(id=0, code={        
argv <- eval(parse(text="list(structure(c(4, 7, 6, 0, 0, 2, 4, 9, 3, 6, 0, 1, 5.5, 0.5, 4.5, 5.5, 0.5, 2.5, 0.5, 0.5, 2.5, 4.5, 9.5, 3.5, 1.5, 0.5, 5.5, 0.5, 1.5, 0.5, 0.5, 0.5, 1.5, 1.5, 0.5, 2.5, 2, 0, 7, 1, 1, 2, 0, 0, 0, 0, 3, 1, 0, 2, 0, 2, 0, 3, 2, 2, 0, 1, 3, 1, 4, 6, 0, 7, 0, 1, 2, 5, 11, 11, 9, 2), .Dim = 72L, .Dimnames = list(c(\"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"B\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"C\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"D\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"E\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"F\"))), 72L, \"average\")"));        
.Internal(rank(argv[[1]], argv[[2]], argv[[3]]));        
}, o=expected);        

