Displaying 1 result from an estimated 1 matches for "droppees".
2003 Mar 26
5
predict (PR#2686)
...lt;- xlev[[nm]])) {
xi <- data[[nm]]
if (is.null(nxl <- levels(xi)))
warning(paste("variable", nm, "is not a factor"))
else {
xi <- xi[, drop = TRUE]
nxl <- levels( xi) # MVB: remove droppees
if (any(m <- is.na(match(nxl, xl))))
stop(paste("factor", nm, "has new level(s)", nxl[m]))
}
}
}
else if (drop.unused.levels) {
<<...>>
cheers
Mark
*******************************
Mark Bravi...