data(geco_small)
data(geco_small_result)
sl.true <- fromentities(geco_small[[1]]$entity, geco_small[[2]]$entity,
geco_small[[3]]$entity, geco_small[[4]]$entity)
posterior <- extractlinks(geco_small_result)
# Compare one posterior sample to previously computed known truth
class(sl.true)
precision(posterior[[42]], sl.true)
Run the code above in your browser using DataLab