if (FALSE) {
#############################################################################
# EXAMPLE 1: Plausible value imputation for Rasch model in sirt
#############################################################################
library(sirt)
data(data.read, package="sirt")
dat <- data.read
# fit Rasch model
mod <- rasch.mml2(dat)
# draw 10 plausible values
pv1 <- TAM::IRT.drawPV(mod, NPV=10)
}
Run the code above in your browser using DataLab