expected <- eval(parse(text="FALSE"));         
test(id=0, code={         
argv <- eval(parse(text="list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c(\"Craig Dunain\", \"Ben Rha\", \"Ben Lomond\", \"Goatfell\", \"Bens of Jura\", \"Cairnpapple\", \"Scolty\", \"Traprain\", \"Lairig Ghru\", \"Dollar\", \"Lomonds\", \"Cairn Table\", \"Eildon Two\", \"Cairngorm\", \"Seven Hills\", \"Knock Hill\", \"Black Hill\", \"Creag Beag\", \"Kildcon Hill\", \"Meall Ant-Suidhe\", \"Half Ben Nevis\", \"Cow Hill\", \"N Berwick Law\", \"Creag Dubh\", \"Burnswark\", \"Largo Law\", \"Criffel\", \"Acmony\", \"Ben Nevis\", \"Knockfarrel\", \"Two Breweries\", \"Cockleroi\", \"Moffat Chase\")), \"factor\", FALSE)"));         
.Internal(`inherits`(argv[[1]], argv[[2]], argv[[3]]));         
}, o=expected);         

