# \donttest{
fit <- rater(anesthesia, "dawid_skene")
# By default will just plot the theta plot
plot(fit)
# Select which parameter to plot.
plot(fit, pars = "pi")
# Plot the theta parameter for rater 1, showing uncertainty.
plot(fit, pars = "theta", theta_plot_type = "points", rater_index = 1)
# }
Run the code above in your browser using DataLab