Displaying 1 result from an estimated 1 matches for "18mar01".
Did you mean:
18mar
2002 Oct 25
0
[., multiple inheritance, and R 1.6
...(x, ..., drop=TRUE) {
atx <- attributes(x)
nam <- atx$names
atx$levels <- atx$names <- NULL
y <- as.integer(x)[...]
ln <- length(nam)
nam <- if(ln) nam[...] else NULL
opt <- .Options$drop.factor.levels
if(!length(opt)) opt <- .Options$drop.unused.levels # 18Mar01
if(drop && (!missing(drop) || (length(opt)==0 || opt))) {
oldClass(y) <- NULL
j <- sort(unique(y))
y[] <- match(y,j)
levels(y) <- levels(x)[j]
} else if(length(y)) levels(y) <- levels(x) ##only needed for length 0 subscripts
attributes(y)...