Displaying 2 results from an estimated 2 matches for "termobj".
Did you mean:
memobj
2019 Oct 04
0
Error in [.terms
...r attribute
? \item [-2] for order attribute
? \item [-4] for the dataClasses attribute
\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"),
e...
2003 Mar 26
2
predict (PR#2685)
...hings
get out of synch.
This is a slightly tricky bug to fix, because `predvars' and `variables' can
look a bit different e.g. if there are `poly' terms, but I think the
following change near the end of `delete.response' does the trick:
<<...>>
if (length(formula(termobj)) == 3) {
# Old code, reliant on maintaining the order of terms: attr(tt,
"predvars") <- attr(termobj, "predvars")[-2]
reorder <- match( sapply( attr( tt, 'variables'), deparse), sapply(
attr( termobj, 'variables'), deparse)) # MVB
attr( tt, '...