R/alldups.r

In shipunov: Miscellaneous Functions from Alexey Shipunov

Defines functions Alldups

Documented in Alldups

Alldups <- function(v, groups=FALSE)
{
 alld <- duplicated(v) | duplicated(v, fromLast=TRUE)
 if (groups) {
  if (is.matrix(v) || is.data.frame(v)) v <- apply(v, 1, paste0, collapse="")
  v[!alld] <- NA
  anaf <- as.numeric(as.factor(v))
  anaf[!alld] <- 0
  anaf
  } else {
  alld
 }
}

Try the shipunov package in your browser