# NOT RUN {
data(raterdata)
# cctfit <- cctapply(data = raterdata, clusters = 1, itemdiff = TRUE, samples = 10000,
# chains = 3, burnin = 2000, runchecks = FALSE)
# cctcat(cctfit)
# }
Run the code above in your browser using DataLab