# \donttest{
fit_ds <- rater(anesthesia, "dawid_skene", verbose = FALSE, chains = 1)
fit_ccds <- rater(anesthesia, "class_conditional_dawid_skene",
verbose = FALSE, chains = 1)
loo_ds <- loo(fit_ds)
loo_ccds <- loo(fit_ccds)
# To compare the loos easily we can use the loo_compare function from the
# loo package:
library(loo)
loo_compare(loo_ds, loo_ccds)
# The documentation of the loo package contains more information about how
# the output should be interpreted.
# }
Run the code above in your browser using DataLab