expected <- eval(parse(text="structure(c(\"[\", \"shingle\", NA, \"as.data.frame\", \"shingle\", NA, \"plot\", \"shingle\", NA, \"print\", \"shingle\", NA, \"summary\", \"shingle\", NA, \"as.character\", \"shingleLevel\", NA, \"print\", \"shingleLevel\", NA, \"print\", \"trellis\", NA, \"plot\", \"trellis\", NA, \"update\", \"trellis\", NA, \"dim\", \"trellis\", NA, \"dimnames\", \"trellis\", NA, \"dimnames<-\", \"trellis\", NA, \"[\", \"trellis\", NA, \"t\", \"trellis\", NA, \"summary\", \"trellis\", NA, \"print\", \"summary.trellis\", NA, \"barchart\", \"formula\", NA, \"barchart\", \"array\", NA, \"barchart\", \"default\", NA, \"barchart\", \"matrix\", NA, \"barchart\", \"numeric\", NA, \"barchart\", \"table\", NA, \"bwplot\", \"formula\", NA, \"bwplot\", \"numeric\", NA, \"densityplot\", \"formula\", NA, \"densityplot\", \"numeric\", NA, \"dotplot\", \"formula\", NA, \"dotplot\", \"array\", NA, \"dotplot\", \"default\", NA, \"dotplot\", \"matrix\", NA, \"dotplot\", \"numeric\", NA, \"dotplot\", \"table\", NA, \"histogram\", \"formula\", NA, \"histogram\", \"factor\", NA, \"histogram\", \"numeric\", NA, \"qqmath\", \"formula\", NA, \"qqmath\", \"numeric\", NA, \"stripplot\", \"formula\", NA, \"stripplot\", \"numeric\", NA, \"qq\", \"formula\", NA, \"xyplot\", \"formula\", NA, \"xyplot\", \"ts\", NA, \"levelplot\", \"formula\", NA, \"levelplot\", \"table\", NA, \"levelplot\", \"array\", NA, \"levelplot\", \"matrix\", NA, \"contourplot\", \"formula\", NA, \"contourplot\", \"table\", NA, \"contourplot\", \"array\", NA, \"contourplot\", \"matrix\", NA, \"cloud\", \"formula\", NA, \"cloud\", \"matrix\", NA, \"cloud\", \"table\", NA, \"wireframe\", \"formula\", NA, \"wireframe\", \"matrix\", NA, \"splom\", \"formula\", NA, \"splom\", \"matrix\", NA, \"splom\", \"data.frame\", NA, \"parallelplot\", \"formula\", NA, \"parallelplot\", \"matrix\", NA, \"parallelplot\", \"data.frame\", NA, \"parallel\", \"formula\", NA, \"parallel\", \"matrix\", NA, \"parallel\", \"data.frame\", NA, \"tmd\", \"formula\", NA, \"tmd\", \"trellis\", NA, \"llines\", \"default\", NA, \"ltext\", \"default\", NA, \"lpoints\", \"default\", NA), .Dim = c(3L, 70L))"));   
test(id=0, code={   
argv <- eval(parse(text="list(structure(c(\"[\", \"as.data.frame\", \"plot\", \"print\", \"summary\", \"as.character\", \"print\", \"print\", \"plot\", \"update\", \"dim\", \"dimnames\", \"dimnames<-\", \"[\", \"t\", \"summary\", \"print\", \"barchart\", \"barchart\", \"barchart\", \"barchart\", \"barchart\", \"barchart\", \"bwplot\", \"bwplot\", \"densityplot\", \"densityplot\", \"dotplot\", \"dotplot\", \"dotplot\", \"dotplot\", \"dotplot\", \"dotplot\", \"histogram\", \"histogram\", \"histogram\", \"qqmath\", \"qqmath\", \"stripplot\", \"stripplot\", \"qq\", \"xyplot\", \"xyplot\", \"levelplot\", \"levelplot\", \"levelplot\", \"levelplot\", \"contourplot\", \"contourplot\", \"contourplot\", \"contourplot\", \"cloud\", \"cloud\", \"cloud\", \"wireframe\", \"wireframe\", \"splom\", \"splom\", \"splom\", \"parallelplot\", \"parallelplot\", \"parallelplot\", \"parallel\", \"parallel\", \"parallel\", \"tmd\", \"tmd\", \"llines\", \"ltext\", \"lpoints\", \"shingle\", \"shingle\", \"shingle\", \"shingle\", \"shingle\", \"shingleLevel\", \"shingleLevel\", \"trellis\", \"trellis\", \"trellis\", \"trellis\", \"trellis\", \"trellis\", \"trellis\", \"trellis\", \"trellis\", \"summary.trellis\", \"formula\", \"array\", \"default\", \"matrix\", \"numeric\", \"table\", \"formula\", \"numeric\", \"formula\", \"numeric\", \"formula\", \"array\", \"default\", \"matrix\", \"numeric\", \"table\", \"formula\", \"factor\", \"numeric\", \"formula\", \"numeric\", \"formula\", \"numeric\", \"formula\", \"formula\", \"ts\", \"formula\", \"table\", \"array\", \"matrix\", \"formula\", \"table\", \"array\", \"matrix\", \"formula\", \"matrix\", \"table\", \"formula\", \"matrix\", \"formula\", \"matrix\", \"data.frame\", \"formula\", \"matrix\", \"data.frame\", \"formula\", \"matrix\", \"data.frame\", \"formula\", \"trellis\", \"default\", \"default\", \"default\", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(70L, 3L)), c(2L, 1L), TRUE)"));   
.Internal(`aperm`(argv[[1]], argv[[2]], argv[[3]]));   
}, o=expected);   

