Displaying 1 result from an estimated 1 matches for "restemp".
Did you mean:
regtemp
2004 Aug 19
0
suggesting a new feature for unique()
...quot;[", c(list(x=x), args, list(drop=FALSE)))
}
--- 67,76 ----
args <- rep(alist(a=), ndim)
names(args) <- NULL
args[[MARGIN]] <- !duplicated(as.vector(temp))
! res <- do.call("[", c(list(x=x), args, list(drop=FALSE)))
! if (index) {
! resTemp <- apply(res, MARGIN, function(x) paste(x, collapse =
"\r"))
! attr(res, "index") <- match(temp, resTemp)
! }
! res
}
An example usage:
> x <- sample(5, 10, rep=T)
> x
[1] 4 2 5 3 2 3 4 2 2 3
> z <- unique(x, index=TRUE)
> z[attr(z, &...