Displaying 1 result from an estimated 1 matches for "strhead".
2009 Sep 28
1
model.matrix troubles with AlgDesign
...eparse(frml, width = 500)
while ((0 != (pos <- findFunction("quad", frml))[1]) || (0 !=
(pos <- findFunction("cubicS", frml))[1]) || (0 != (pos <-
findFunction("cubic",
frml))[1])) {
prog <- substr(frml, pos[1], pos[2])
strHead <- substr(frml, 1, pos[1] - 1)
strTail <- substr(frml, pos[2] + 1, nchar(frml))
prog <- eval(parse(text = prog))
frml <- paste(strHead, prog, strTail, sep = "")
}
if (0 != (pos <- findDot(".", frml))[1]) {
strHead <- subs...