data(DoignonFalmagne7)
K <- DoignonFalmagne7$K # well-graded knowledge space
N.R <- DoignonFalmagne7$N.R # frequencies of response patterns
## Fit simple learning model (SLM) by different methods
slm(K, N.R, method = "MD") # minimum discrepancy estimation
slm(K, N.R, method = "ML") # maximum likelihood estimation by EM
slm(K, N.R, method = "MDML") # MDML estimation
## Compare SLM and BLIM
m1 <- slm(K, N.R, method = "ML")
m2 <- blim(K, N.R, method = "ML")
anova(m1, m2)
Run the code above in your browser using DataLab