Displaying 1 result from an estimated 1 matches for "newformula".
Did you mean:
envformula
2019 Oct 04
0
Error in [.terms
...\end{itemize}
That will recreate the formula that ``would have been'' had there been no strata term.?
Now look at the first portion of the code in models.R
<<>>=
`[.terms` <- function (termobj, i)
{
??? resp <- if (attr(termobj, "response")) termobj[[2L]]
??? newformula <- attr(termobj, "term.labels")[i]
??? if (length(newformula) == 0L) newformula <- "1"
??? newformula <- reformulate(newformula, resp, attr(termobj, "intercept"),
environment(termobj))
??? result <- terms(newformula, specials = names(attr(termobj, "...