# \donttest{
J <- 5
K <- 4
pi <- rep(1 / K, K)
theta <- make_theta(0.7, J, K)
sim_data <- data.frame(item = rep(1:2, each = 5), rater = rep(1:5, 2))
simulations <- simulate_dawid_skene_model(pi, theta, sim_data)
simulations
# }
Run the code above in your browser using DataLab