if (FALSE) {
#############################################################################
# EXAMPLE 1: Plot item mastery
#############################################################################
data(sim.dina)
data(sim.qmatrix)
#* estimate DINA Model
mod1 <- CDM::din(sim.dina, q.matrix=sim.qmatrix, rule="DINA")
#* estimate GDINA model
mod2 <- CDM::gdina(sim.dina, q.matrix=sim.qmatrix)
#* plots
plot_item_mastery(mod1)
plot_item_mastery(mod2)
}
Run the code above in your browser using DataLab