Displaying 1 result from an estimated 1 matches for "lmauxiliary".
Did you mean:
auxiliary
2011 Dec 19
1
pls help to print out first row of terms(model) output in example program
...10 + x1) 1 0
poly(x2, 2) 0 1
attr(,"term.labels")
[1] "log(10 + x1)" "poly(x2, 2)"
[snip]
In my working example code below , I need the help where I have "##fix
me fix me##
##Paul Johnson
## 2011-12-19
## mcDiagnose.R
lmAuxiliary <- function(model){
dat <- as.data.frame(model.matrix(model))
## ivnames <- attr(delete.response(terms(model)), "term.labels")
## previous does not work with transforms like poly
hasIntercept <- attr(terms(model), "intercept")
if (hasIntercept) dat <- d...