# NOT RUN {
# }
# NOT RUN {
dat <- expand.table(deAyala)
mod <- mirt(dat, 1)
theta_se <- fscores(mod, full.scores.SE = TRUE)
empirical_rxx(theta_se)
theta_se <- fscores(mod, full.scores.SE = TRUE, method = 'ML')
empirical_rxx(theta_se)
# }
Run the code above in your browser using DataLab