Displaying 1 result from an estimated 1 matches for "append_na".
Did you mean:
append_end
2013 Aug 09
1
a fast table() for the 1D case
...p;& is.null(exclude)) {
useNA <- "always"
} else {
useNA <- match.arg(useNA)
}
if (useNA == "always" && !missing(exclude))
exclude <- setdiff(exclude, NA)
if (is.factor(x)) {
x2 <- levels(x)
append_NA <- (useNA == "always" ||
useNA == "ifany" && any(is.na(x))) &&
!any(is.na(x2))
if (append_NA) {
x2 <- c(x2, NA)
x <- factor(x, levels=x2, exclude=NULL)
}
t2...