Whoops. That should be a "&&" where I put a "||".
naPrint <- function(model,...) {
if(!inherits(model,"lm") && !inherits(model,"glm"))
stop("no support for class ",class(model),"\n")
if(!is.null(model$na.action)) {
action <- paste("na.action:",attr(model$na.action,"class"))
rows <- as.numeric(model$na.action)
list(action=action,rows=rows)
} else { #no missing values
list(action=options()$na.action, rows=NULL)
}
}
--
Indigo Industrial Controls Ltd.
http://www.indigoindustrial.co.nz
64-21-343-545
[EMAIL PROTECTED]
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
