expected <- eval(parse(text="structure(c(24.2407407407407, 24.3518518518519, 24.2037037037037, 24.4444444444444, 24.2037037037037, 24.2407407407407, 24.8333333333333, 24.7777777777778, 24.2407407407407, 24.2407407407407, 24.2037037037037, 24.5185185185185, 24.8333333333333, 24.8333333333333, 24.5185185185185, 24.8148148148148, 24.4444444444444, 24.3518518518519, 24.8148148148148, 24.8333333333333, 24.4444444444444, 24.3518518518519, 24.2037037037037, 24.8148148148148, 24.8148148148148, 24.3518518518519, 24.2407407407407, 24.5185185185185, 24.2407407407407, 24.4444444444444, 24.5185185185185, 24.5185185185185, 24.7777777777778, 24.8148148148148, 24.7777777777778, 24.8333333333333, 24.7777777777778, 24.8333333333333, 24.8333333333333, 24.8333333333333, 24.8148148148148, 24.2037037037037, 24.7777777777778, 24.8148148148148, 24.3518518518519, 24.8148148148148, 24.4444444444444, 24.2037037037037, 24.5185185185185, 24.8148148148148, 24.8148148148148, 24.3518518518519, 24.8148148148148, 24.8333333333333, 24.7777777777778, 24.8333333333333, 24.8333333333333, 24.8333333333333, 24.4444444444444, 24.8148148148148, 22.3953488372093, 30.8333333333333, 30.5, 30.8571428571429, 30.5, 31.4545454545455, 30.7857142857143, 31.1428571428571, 31.4545454545455, 31.4545454545455, 30.5, 30.6428571428571, 31.2857142857143, 22.75, 22.375, 22.4615384615385, 22.2, 30.8333333333333, 22.4615384615385, 22.575, 22.2, 30.8333333333333, 22.4047619047619, 22.4615384615385, 22.4615384615385, 22.5, 22.3953488372093, 22.375, 22.3953488372093, 22.2, 22.375, 22.375, 22.55, 30.9333333333333, 22.55, 22.575, 22.55, 22.575, 22.75, 22.75, 22.4615384615385, 22.4047619047619, 22.55, 22.4615384615385, 22.5, 22.4615384615385, 22.2, 22.4047619047619, 22.375, 22.4615384615385, 22.4615384615385, 22.5, 22.4615384615385, 22.575, 22.55, 22.75, 22.575, 22.75, 22.2, 22.4615384615385, 24.4761904761905, 30.8333333333333, 30.5, 30.8571428571429, 30.5, 31.4545454545455, 30.7857142857143, 31.1428571428571, 31.4545454545455, 31.4545454545455, 30.5, 30.6428571428571, 31.2857142857143, 20.5789473684211, 24.4, 20.2222222222222, 24.05, 30.8333333333333, 24.3809523809524, 24.3333333333333, 24.05, 30.8333333333333, 24.4761904761905, 24.3809523809524, 24.3809523809524, 20.695652173913, 24.4761904761905, 24.4, 24.4761904761905, 24.05, 20.35, 24.4, 24.65, 30.9333333333333, 24.65, 24.3333333333333, 24.65, 20.6315789473684, 24.7142857142857, 24.7142857142857, 20.2222222222222, 20.3333333333333, 20.45, 20.2222222222222, 24.6842105263158, 20.2222222222222, 20.35, 24.4761904761905, 20.35, 20.2222222222222, 20.2222222222222, 20.695652173913, 20.2222222222222, 20.6315789473684, 20.45, 20.5789473684211, 20.6315789473684, 20.5789473684211, 20.35, 20.2222222222222, 25.625, 30.8333333333333, 30.5, 30.8571428571429, 30.5, 31.4545454545455, 30.7857142857143, 31.1428571428571, 31.4545454545455, 31.4545454545455, 30.5, 30.6428571428571, 31.2857142857143, 20.5789473684211, 23.5833333333333, 20.2222222222222, 24.05, 30.8333333333333, 25.5714285714286, 23.5384615384615, 24.05, 30.8333333333333, 24.4761904761905, 25.5714285714286, 25.5714285714286, 20.695652173913, 25.625, 23.5833333333333, 23.7692307692308, 24.05, 20.35, 23.5833333333333, 26, 30.9333333333333, 23.9230769230769, 23.5384615384615, 23.9230769230769, 20.6315789473684, 24.7142857142857, 24.7142857142857, 20.2222222222222, 20.3333333333333, 20.45, 20.2222222222222, 24.6842105263158, 20.2222222222222, 20.35, 24.4761904761905, 20.35, 20.2222222222222, 20.2222222222222, 20.695652173913, 20.2222222222222, 20.6315789473684, 20.45, 20.5789473684211, 20.6315789473684, 20.5789473684211, 20.35, 20.2222222222222), .Dim = c(60L, 4L), .Dimnames = list(c(\"Eagle Summit 4\", \"Ford Escort   4\", \"Ford Festiva 4\", \"Honda Civic 4\", \"Mazda Protege 4\", \"Mercury Tracer 4\", \"Nissan Sentra 4\", \"Pontiac LeMans 4\", \"Subaru Loyale 4\", \"Subaru Justy 3\", \"Toyota Corolla 4\", \"Toyota Tercel 4\", \"Volkswagen Jetta 4\", \"Chevrolet Camaro V8\", \"Dodge Daytona\", \"Ford Mustang V8\", \"Ford Probe\", \"Honda Civic CRX Si 4\", \"Honda Prelude Si 4WS 4\", \"Nissan 240SX 4\", \"Plymouth Laser\", \"Subaru XT 4\", \"Audi 80 4\", \"Buick Skylark 4\", \"Chevrolet Beretta 4\", \"Chrysler Le Baron V6\", \"Ford Tempo 4\", \"Honda Accord 4\", \"Mazda 626 4\", \"Mitsubishi Galant 4\", \"Mitsubishi Sigma V6\", \"Nissan Stanza 4\", \"Oldsmobile Calais 4\", \"Peugeot 405 4\", \"Subaru Legacy 4\", \"Toyota Camry 4\", \"Volvo 240 4\", \"Acura Legend V6\", \"Buick Century 4\", \"Chrysler Le Baron Coupe\", \"Chrysler New Yorker V6\", \"Eagle Premier V6\", \"Ford Taurus V6\", \"Ford Thunderbird V6\", \"Hyundai Sonata 4\", \"Mazda 929 V6\", \"Nissan Maxima V6\", \"Oldsmobile Cutlass Ciera 4\", \"Oldsmobile Cutlass Supreme V6\", \"Toyota Cressida 6\", \"Buick Le Sabre V6\", \"Chevrolet Caprice V8\", \"Ford LTD Crown Victoria V8\", \"Chevrolet Lumina APV V6\", \"Dodge Grand Caravan V6\", \"Ford Aerostar V6\", \"Mazda MPV V6\", \"Mitsubishi Wagon 4\", \"Nissan Axxess 4\", \"Nissan Van 4\"), structure(c(\"0.79767456\", \"0.28300396\", \"0.04154257\", \"0.01132626\"), .Names = c(\"1\", \"2\", \"3\", \"4\"))))"));             
test(id=0, code={             
argv <- eval(parse(text="list(c(24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 30.5, 30.5, 30.5, 24.4444444444444, 30.8571428571429, 30.8571428571429, 30.8571428571429, 24.2037037037037, 30.5, 30.5, 30.5, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.8333333333333, 30.7857142857143, 30.7857142857143, 30.7857142857143, 24.7777777777778, 31.1428571428571, 31.1428571428571, 31.1428571428571, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2037037037037, 30.5, 30.5, 30.5, 24.5185185185185, 30.6428571428571, 30.6428571428571, 30.6428571428571, 24.8333333333333, 31.2857142857143, 31.2857142857143, 31.2857142857143, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.2407407407407, 22.3953488372093, 24.4761904761905, 23.7692307692308, 24.4444444444444, 22.2, 24.05, 24.05, 24.5185185185185, 22.375, 20.35, 20.35, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.7777777777778, 22.55, 24.65, 26, 24.8148148148148, 30.9333333333333, 30.9333333333333, 30.9333333333333, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.2037037037037, 22.4047619047619, 20.3333333333333, 20.3333333333333, 24.7777777777778, 22.55, 20.45, 20.45, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 24.6842105263158, 24.6842105263158, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 20.35, 20.35, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.5185185185185, 22.375, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.7777777777778, 22.55, 20.45, 20.45, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.4444444444444, 22.2, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222), 60L, 1, TRUE, list(c(\"Eagle Summit 4\", \"Ford Escort   4\", \"Ford Festiva 4\", \"Honda Civic 4\", \"Mazda Protege 4\", \"Mercury Tracer 4\", \"Nissan Sentra 4\", \"Pontiac LeMans 4\", \"Subaru Loyale 4\", \"Subaru Justy 3\", \"Toyota Corolla 4\", \"Toyota Tercel 4\", \"Volkswagen Jetta 4\", \"Chevrolet Camaro V8\", \"Dodge Daytona\", \"Ford Mustang V8\", \"Ford Probe\", \"Honda Civic CRX Si 4\", \"Honda Prelude Si 4WS 4\", \"Nissan 240SX 4\", \"Plymouth Laser\", \"Subaru XT 4\", \"Audi 80 4\", \"Buick Skylark 4\", \"Chevrolet Beretta 4\", \"Chrysler Le Baron V6\", \"Ford Tempo 4\", \"Honda Accord 4\", \"Mazda 626 4\", \"Mitsubishi Galant 4\", \"Mitsubishi Sigma V6\", \"Nissan Stanza 4\", \"Oldsmobile Calais 4\", \"Peugeot 405 4\", \"Subaru Legacy 4\", \"Toyota Camry 4\", \"Volvo 240 4\", \"Acura Legend V6\", \"Buick Century 4\", \"Chrysler Le Baron Coupe\", \"Chrysler New Yorker V6\", \"Eagle Premier V6\", \"Ford Taurus V6\", \"Ford Thunderbird V6\", \"Hyundai Sonata 4\", \"Mazda 929 V6\", \"Nissan Maxima V6\", \"Oldsmobile Cutlass Ciera 4\", \"Oldsmobile Cutlass Supreme V6\", \"Toyota Cressida 6\", \"Buick Le Sabre V6\", \"Chevrolet Caprice V8\", \"Ford LTD Crown Victoria V8\", \"Chevrolet Lumina APV V6\", \"Dodge Grand Caravan V6\", \"Ford Aerostar V6\", \"Mazda MPV V6\", \"Mitsubishi Wagon 4\", \"Nissan Axxess 4\", \"Nissan Van 4\"), structure(c(\"0.79767456\", \"0.28300396\", \"0.04154257\", \"0.01132626\"), .Names = c(\"1\", \"2\", \"3\", \"4\"))), FALSE, TRUE)"));             
.Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]));             
}, o=expected);             

