R/rm_duplicate.R

Defines functions rm_duplicate

#' @export
rm_duplicate <- function(d) {
  I <-
    {
      !duplicated(d[, 1:4])
    } %>%
    which()
  d_pos <- d[I, ] %>%
    fix_alt()
  d_pos[order(site), ]
}
kongdd/MissInfo documentation built on July 29, 2024, 12:02 p.m.