# NOT RUN {
data("linkexample1", "linkexample2")
pairs <- pair_blocking(linkexample1, linkexample2, "postcode")
pairs <- compare_pairs(pairs, c("lastname", "firstname", "address", "sex"))
pairs <- score_problink(pairs)
# is the same as
model <- problink_em(pairs)
pairs <- score_problink(pairs, model = model)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace