# NOT RUN {
## Samples a subset of pairs
data(RLdata500)
rpairs <- compare.dedup(RLdata500, identity = identity.RLdata500,
blockfld = list(1,3,5,6,7))
nPairs <- nrow(rpairs$pairs)
s <- sample(nPairs, nPairs / 2)
samp <- rpairs[s]
# }
Run the code above in your browser using DataLab