# \donttest{
fit <- rater(anesthesia, "dawid_skene")
samples <- posterior_samples(fit)
# Look at first 6 samples for each of the pi parameters
head(samples$pi)
# Look at the first 6 samples for the theta[1, 1, 1] parameter
head(samples$theta[, 1, 1, 1])
# Only get the samples for the pi parameter:
pi_samples <- posterior_samples(fit, pars = "pi")
# }
Run the code above in your browser using DataLab