data(RLdata500)
rpairs <- RLBigDataDedup(RLdata500, blockfld=list(1,3,5:7),
identity = identity.RLdata500)
rpairs <- epiWeights(rpairs)
result <- epiClassify(rpairs, 0.7)
summary(result)
Run the code above in your browser using DataLab