if (FALSE) {
#############################################################################
# EXAMPLE 1: DINA model item fit
#############################################################################
data(sim.dina, package="CDM")
data(sim.qmatrix, package="CDM")
# estimate model
mod1 <- CDM::din( sim.dina, q.matrix=sim.qmatrix)
# compute item fit
IRT.itemfit( mod1 )
}
Run the code above in your browser using DataLab