#############################################################################
# EXAMPLE 1: Absolute model fit
#############################################################################
data(sim.dina)
data(sim.qmatrix)
#*** Model 1: DINA model for DINA simulated data
mod1 <- din(sim.dina, q.matr = sim.qmatrix, rule = "DINA" )
fmod1 <- IRT.modelfit( mod1 )
summary(fmod1)
#*** Model 2: GDINA model
mod2 <- gdina( sim.dina , q.matr = sim.qmatrix , rule="GDINA" )
fmod2 <- IRT.modelfit( mod2 )
summary(fmod2)
Run the code above in your browser using DataLab