R/remove.dup.rows.R

remove.dup.rows <- function(dfr) {
  o <- do.call("order", dfr)
  all.dup <- do.call("pmin", lapply(dfr[o, ], function(x) eql(x, c(x[-1], NA))))
  all.dup[o] <- all.dup
  dfr[!all.dup, ]
}

Try the cwhmisc package in your browser

Any scripts or data that you put into this service are public.

cwhmisc documentation built on May 1, 2019, 7:55 p.m.