# \donttest{
# A model fit using MCMC.
mcmc_fit <- rater(anesthesia, "dawid_skene")
# This will return the posterior mean (except for z)
post_mean_estimate <- point_estimate(mcmc_fit)
# A model fit using optimisation.
optim_fit <- rater(anesthesia, dawid_skene(), method = "optim")
# This will output MAP estimates of the parameters.
map_estimate <- point_estimate(optim_fit)
# }
Run the code above in your browser using DataLab