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