Displaying 1 result from an estimated 1 matches for "strtail".
2009 Sep 28
1
model.matrix troubles with AlgDesign
...t;- 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 <- substr(frml, 1, pos[1] - 1)
strTail <- subs...