#LSAT6 example
dat <- expand.table(LSAT6)
(mod1 <- mirt(dat, 1, itemtype = '2PL', constrain = list(c(1,5,9,13,17))))
fitIndices(mod1)
#Science data with computing the null model M2 stat
(mod2 <- mirt(Science, 1))
fitIndices(mod2, calcNull = TRUE)
Run the code above in your browser using DataLab