data(sim.dina, package="CDM")
data(sim.qmatrix, package="CDM")
# DINA model
d1 <- CDM::din( sim.dina, q.matrix=sim.qmatrix)
coef(d1)
if (FALSE) {
# GDINA model
d2 <- CDM::gdina( sim.dina, q.matrix=sim.qmatrix)
coef(d2)
# GDM model
theta.k <- seq(-4,4,len=11)
d3 <- CDM::gdm( sim.dina, irtmodel="2PL", theta.k=theta.k,
Qmatrix=as.matrix(sim.qmatrix), centered.latent=TRUE)
coef(d3)
}
Run the code above in your browser using DataLab