data(RLdata500)
rpairs=compare.dedup(RLdata500, identity=identity.RLdata500, strcmp=TRUE,
blockfld=list(1,3,5,6,7))
rpairs=epiWeights(rpairs)
# leave out argument interval to choose from plot
threshold=getParetoThreshold(rpairs,interval=c(0.68, 0.79))
summary(epiClassify(rpairs,threshold))
Run the code above in your browser using DataLab