expected <- eval(parse(text="structure(c(\"splines-package\", \"as.polySpline\", \"asVector\", \"backSpline\", \"bs\", \"interpSpline\", \"ns\", \"periodicSpline\", \"polySpline\", \"predict.bs\", \"predict.bSpline\", \"predict.nbSpline\", \"predict.npolySpline\", \"predict.ns\", \"predict.pbSpline\", \"predict.ppolySpline\", \"spline.des\", \"splineDesign\", \"splineKnots\", \"splineOrder\", \"splines\", \"xyVector\", \"splines-package\", \"polySpline\", \"asVector\", \"backSpline\", \"bs\", \"interpSpline\", \"ns\", \"periodicSpline\", \"polySpline\", \"predict.bs\", \"predict.bSpline\", \"predict.bSpline\", \"predict.bSpline\", \"predict.bs\", \"predict.bSpline\", \"predict.bSpline\", \"splineDesign\", \"splineDesign\", \"splineKnots\", \"splineOrder\", \"splines-package\", \"xyVector\"), .Dim = c(22L, 2L))"));     
test(id=0, code={     
argv <- eval(parse(text="list(structure(c(\"splines-package\", \"as.polySpline\", \"asVector\", \"backSpline\", \"bs\", \"interpSpline\", \"ns\", \"periodicSpline\", \"polySpline\", \"predict.bs\", \"predict.bSpline\", \"predict.nbSpline\", \"predict.npolySpline\", \"predict.ns\", \"predict.pbSpline\", \"predict.ppolySpline\", \"spline.des\", \"splineDesign\", \"splineKnots\", \"splineOrder\", \"splines\", \"xyVector\", \"splines-package\", \"polySpline\", \"asVector\", \"backSpline\", \"bs\", \"interpSpline\", \"ns\", \"periodicSpline\", \"polySpline\", \"predict.bs\", \"predict.bSpline\", \"predict.bSpline\", \"predict.bSpline\", \"predict.bs\", \"predict.bSpline\", \"predict.bSpline\", \"splineDesign\", \"splineDesign\", \"splineKnots\", \"splineOrder\", \"splines-package\", \"xyVector\"), .Dim = c(22L, 2L)), NULL, c(\"Column 1\", \"Column 2\", \"Column 3\"), FALSE, TRUE, NULL)"));     
.Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]));     
}, o=expected);     

