if (FALSE) {
#############################################################################
# EXAMPLE 1: Fitted Rasch model in TAM package
#############################################################################
#--- Model 1: Rasch model
library(TAM)
mod1 <- TAM::tam.mml(resp=TAM::sim.rasch)
# apply IRT.predict function
prmod1 <- CDM::IRT.predict(mod1, mod1$resp )
str(prmod1)
}
#############################################################################
# EXAMPLE 2: Predict function for din
#############################################################################
# DINA Model
mod1 <- CDM::din( CDM::sim.dina, q.matr=CDM::sim.qmatrix, rule="DINA" )
summary(mod1)
# apply predict method
prmod1 <- CDM::IRT.predict( mod1, sim.dina )
str(prmod1)
Run the code above in your browser using DataLab