# \donttest{
fit <- rater(anesthesia, "dawid_skene", verbose = FALSE)
new_data <- data.frame(item = rep(1:2, each = 5), rater = rep(1:5, 2))
predictions <- posterior_predict(fit, new_data)
predictions
# }
Run the code above in your browser using DataLab