expected <- eval(parse(text="FALSE"));                  
test(id=0, code={                  
argv <- eval(parse(text="list(structure(list(Subject = structure(c(40L, 40L, 40L, 40L, 40L, 40L, 40L, 40L), .Label = c(\"42\", \"28\", \"30\", \"56\", \"46\", \"5\", \"55\", \"32\", \"43\", \"29\", \"3\", \"11\", \"45\", \"22\", \"40\", \"47\", \"31\", \"14\", \"7\", \"41\", \"33\", \"44\", \"23\", \"57\", \"34\", \"18\", \"36\", \"21\", \"15\", \"38\", \"10\", \"1\", \"58\", \"51\", \"4\", \"6\", \"19\", \"2\", \"27\", \"53\", \"37\", \"20\", \"12\", \"9\", \"17\", \"26\", \"8\", \"49\", \"39\", \"54\", \"25\", \"35\", \"52\", \"13\", \"16\", \"59\", \"48\", \"24\", \"50\"), class = c(\"ordered\", \"factor\")), Wt = c(1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7), Apgar = structure(c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), .Label = c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\"), class = c(\"ordered\", \"factor\")), ApgarInd = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\"< 5\", \">= 5\"), class = \"factor\"), time = c(0, 4, 6, 23.8, 27, 28, 39.5, 47), dose = c(17, 17, NA, 4, 7.5, 4, 4, NA), conc = c(NA, NA, 19.1, NA, NA, NA, NA, 33.3)), .Names = c(\"Subject\", \"Wt\", \"Apgar\", \"ApgarInd\", \"time\", \"dose\", \"conc\"), row.names = c(\"669\", \"670\", \"671\", \"672\", \"673\", \"674\", \"675\", \"676\"), class = \"data.frame\"), \"any\")"));                  
.Internal(is.vector(argv[[1]], argv[[2]]));                  
}, o=expected);                  

