expected <- eval(parse(text="structure(c(\"add1\", \"multinom\", NA, \"anova\", \"multinom\", NA, \"coef\", \"multinom\", NA, \"confint\", \"multinom\", NA, \"drop1\", \"multinom\", NA, \"extractAIC\", \"multinom\", NA, \"logLik\", \"multinom\", NA, \"model.frame\", \"multinom\", NA, \"predict\", \"multinom\", NA, \"print\", \"multinom\", NA, \"print\", \"summary.multinom\", NA, \"summary\", \"multinom\", NA, \"vcov\", \"multinom\", NA, \"coef\", \"nnet\", NA, \"predict\", \"nnet\", NA, \"print\", \"nnet\", NA, \"print\", \"summary.nnet\", NA, \"summary\", \"nnet\", NA, \"nnet\", \"default\", NA, \"nnet\", \"formula\", NA), .Dim = c(3L, 20L))"));           
test(id=0, code={           
argv <- eval(parse(text="list(structure(c(\"add1\", \"anova\", \"coef\", \"confint\", \"drop1\", \"extractAIC\", \"logLik\", \"model.frame\", \"predict\", \"print\", \"print\", \"summary\", \"vcov\", \"coef\", \"predict\", \"print\", \"print\", \"summary\", \"nnet\", \"nnet\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"multinom\", \"summary.multinom\", \"multinom\", \"multinom\", \"nnet\", \"nnet\", \"nnet\", \"summary.nnet\", \"nnet\", \"default\", \"formula\", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(20L, 3L)), c(2L, 1L), TRUE)"));           
.Internal(aperm(argv[[1]], argv[[2]], argv[[3]]));           
}, o=expected);           

