if (FALSE) {
out_calib <- runCalibration(data_asq) # errors
}
# \donttest{
out_calib <- runCalibration(data_asq, technical = list(NCYCLES = 1000))
mirt::coef(out_calib, IRTpars = TRUE, simplify = TRUE)
mirt::itemfit(out_calib, empirical.plot = 1)
mirt::itemplot(out_calib, item = 1, type = "info")
mirt::itemfit(out_calib, "S_X2", na.rm = TRUE)
# }
Run the code above in your browser using DataLab