expected <- eval(parse(text="structure(c(-1.89646294299258, 1.16675019914746, -8.10054918052941, -5.02922966334328, -0.332284173685658, -0.370285767776029, -0.422218802914528, 0.27824687717147, NA, 0.150098588668891, 3.21153879975245, 0.000303372486059531, 0.00654384959664698, 0.717283460804982, 0.690536969224971, 0.655590578569862, 1.32081223535046, NA, 1.38078223740269, 0.565646487676971, 0.698724423746393, 0.770086232143856, 0.0568682431416458, 0.116409970657657, 0.0584328435912827, 0.0510212342180821, 0, -1.37346997348395, 2.06268442316178, -11.5933390979754, -6.53073571948212, -5.84305326362929, -3.1808767383421, -7.22571035337252, 5.45355049590036, NA, 0.17, 0.039, 0, 6.5e-11, 5.1e-09, 0.0015, 5e-13, 4.9e-08, NA), .Dim = c(9L, 5L), .Dimnames = list(c(\"toccfarm\", \"toccoperatives\", \"toccprofessional\", \"toccsales\", \"tocccraftsmen:education\", \"toccfarm:education\", \"toccoperatives:education\", \"toccprofessional:education\", \"toccsales:education\"), c(\"coef\", \"exp(coef)\", \"se(coef)\", \"z\", \"p\")))"));     
test(id=0, code={     
argv <- eval(parse(text="list(structure(c(-1.89646294299258, 1.16675019914746, -8.10054918052941, -5.02922966334328, -0.332284173685658, -0.370285767776029, -0.422218802914528, 0.27824687717147, NA, 0.150098588668891, 3.21153879975245, 0.000303372486059531, 0.00654384959664698, 0.717283460804982, 0.690536969224971, 0.655590578569862, 1.32081223535046, NA, 1.38078223740269, 0.565646487676971, 0.698724423746393, 0.770086232143856, 0.0568682431416458, 0.116409970657657, 0.0584328435912827, 0.0510212342180821, 0, -1.37346997348395, 2.06268442316178, -11.5933390979754, -6.53073571948212, -5.84305326362929, -3.1808767383421, -7.22571035337252, 5.45355049590036, NA, 0.17, 0.039, 0, 6.5e-11, 5.1e-09, 0.0015, 5e-13, 4.9e-08, NA), .Dim = c(9L, 5L), .Dimnames = list(c(\"toccfarm\", \"toccoperatives\", \"toccprofessional\", \"toccsales\", \"tocccraftsmen:education\", \"toccfarm:education\", \"toccoperatives:education\", \"toccprofessional:education\", \"toccsales:education\"), c(\"coef\", \"exp(coef)\", \"se(coef)\", \"z\", \"p\"))), c(\"toccfarm\", \"toccoperatives\", \"toccprofessional\", \"toccsales\", \"tocccraftsmen:education\", \"toccfarm:education\", \"toccoperatives:education\", \"toccprofessional:education\", \"toccsales:education\"), c(\"coef\", \"exp(coef)\", \"se(coef)\", \"z\", \"p\"), TRUE, FALSE, NULL)"));     
.Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]));     
}, o=expected);     

