# logLik method | DINA model
data(sim.dina)
data(sim.qmatrix)
d1 <- din(sim.dina, q.matr = sim.qmatrix, rule = "DINA")
summary(d1)
lld1 <- logLik(d1)
## > lld1
## 'log Lik.' -2042.378 (df=25)
## > attr(lld1,"df")
## [1] 25
## > attr(lld1,"nobs")
## [1] 400
nobs(lld1)
# AIC and BIC
AIC(lld1)
BIC(lld1)
Run the code above in your browser using DataLab