if (FALSE) {
#############################################################################
# EXAMPLE 1: Wald test for DINA simulated data sim.dina
#############################################################################
data(sim.dina, package="CDM")
data(sim.qmatrix, package="CDM")
# Model 1: estimate GDINA model
mod1 <- CDM::gdina( sim.dina, q.matrix=sim.qmatrix, rule="GDINA")
summary(mod1)
# perform Wald test
res1 <- CDM::gdina.wald( mod1 )
summary(res1)
# -> results show that all but one item fit according to the DINA rule
# select some output
summary(res1, vars=c("wgtdist", "p") )
}
Run the code above in your browser using DataLab