expected <- eval(parse(text="TRUE"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(c(39.7, 27.7, 43.5, 89.7, 70.2, 63.5, 36.5, 15.2, 35.3, 45.2, 1.2, 49.5, 63.1, 34, 17, 17.6, 67.8, 45.1, 50.9, 64.9, 59.8, 73, 37.6, 60.7, 60.8, 69.3, 71.2, 64.5, 75.9, 7.7, 72.6, 18.7, 78.2, 55.1, 58.1, 62, 53.3, 85.9, 67.5, 16.7, 46.6, 84.9, 19.4, 38.4, 5, 22, 17, 5, 16, 6, 12, 31, 9, 16, 37, 15, 13, 17, 15, 35, 14, 6, 22, 7, 22, 19, 15, 19, 16, 22, 12, 14, 9, 29, 18, 25, 12, 14, 14, 21, 12, 3, 14, 22, 16, 7, 26, 26, 5, 29, 15, 2, 7, 3, 7, 20, 7, 13, 53, 8, 13, 8, 12, 32, 8, 9, 12, 3, 10, 9, 7, 12, 10, 5, 1, 6, 9, 11, 2, 7, 6, 3, 8, 12, 7, 2, 7, 13, 29, 6, 28, 12, 93.4, 58.33, 5.16, 100, 92.85, 2.56, 33.77, 2.15, 90.57, 91.38, 42.34, 6.1, 96.83, 3.3, 9.96, 16.92, 97.16, 84.84, 15.14, 98.22, 5.23, 2.84, 4.97, 4.43, 7.72, 2.82, 2.4, 98.61, 99.06, 13.79, 24.2, 8.65, 98.96, 4.52, 5.23, 8.52, 97.67, 99.71, 2.27, 11.22, 50.43, 99.68, 12.11, 5.62, 20.2, 19.3, 20.6, 18.3, 23.6, 18, 20.3, 10.8, 26.6, 24.4, 18, 22.5, 18.1, 20, 22.2, 23, 24.9, 22.2, 16.7, 20.2, 18, 20, 20, 22.7, 16.3, 18.7, 21, 24.5, 17.8, 20.5, 21.2, 19.5, 19.4, 22.4, 23.8, 16.5, 21, 15.1, 19.1, 18.9, 18.2, 19.8, 20.2, 20.3), .Dim = c(44L, 5L), .Dimnames = list(c(\"Franches-Mnt\", \"Rive Gauche\", \"Neuveville\", \"Herens\", \"Broye\", \"Paysd'enhaut\", \"Moutier\", \"La Vallee\", \"Porrentruy\", \"Sarine\", \"V. De Geneve\", \"Yverdon\", \"Sion\", \"Grandson\", \"Courtelary\", \"Neuchatel\", \"Glane\", \"Delemont\", \"Nyone\", \"Monthey\", \"Morges\", \"Lavaux\", \"Val de Ruz\", \"Avenches\", \"Rolle\", \"Cossonay\", \"Oron\", \"Veveyse\", \"St Maurice\", \"La Chauxdfnd\", \"Echallens\", \"ValdeTravers\", \"Martigwy\", \"Moudon\", \"Payerne\", \"Aigle\", \"Gruyere\", \"Conthey\", \"Aubonne\", \"Le Locle\", \"Rive Droite\", \"Entremont\", \"Lausanne\", \"Boudry\"), c(\"Agriculture\", \"Examination\", \"Education\", \"Catholic\", \"Infant.Mortality\"))))"));               
do.call(`is.numeric`, argv);               
}, o=expected);               

