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 28, 2024, 6:50 a.m.