if (FALSE) {
#############################################################################
# EXAMPLE 1: DINA and GDINA model
#############################################################################
data(sim.dina, package="CDM")
data(sim.qmatrix, package="CDM")
#-- fit GDINA and DINA model
mod1 <- CDM::gdina( sim.dina, q.matrix=sim.qmatrix )
mod2 <- CDM::din( sim.dina, q.matrix=sim.qmatrix )
#-- compute discrimination indices
dimod1 <- CDM::discrim.index(mod1)
dimod2 <- CDM::discrim.index(mod2)
summary(dimod1)
summary(dimod2)
}
Run the code above in your browser using DataLab