# Rating scale model, ICC plot for all items
data(rsmdat)
res <- RSM(rsmdat)
plotICC(res)
# Rasch model with empirical ICCs
newdata <- matrix(sample(0:1, 6000, replace = TRUE), ncol = 6)
res <- RM(newdata)
plotICC(res, empirical = TRUE)
# Joint ICC plot for items 2, 6, 8, and 15 for a Rasch model
data(raschdat1)
res <- RM(raschdat1)
plotjointICC(res, item.subset = c(2,6,8,15))
Run the code above in your browser using DataLab