# NOT RUN {
## use infert data
data(infert)
codebook(infert)
## create duplicates
infert.new <- expand2(infert, 1:5, copies = 2)
codebook(infert.new)
## check duplicates report and rmeove dup
infert.dupremove <- duplicates(infert.new, drop = TRUE)
codebook(infert.dupremove)
## remove only 3 copies
infert.3copies <- duplicates(infert.new)
tab(infert.3copies, dup)
infert.3copies <- filter(infert.3copies, dup < 2)
codebook(infert.3copies)
# }
Run the code above in your browser using DataLab