#LSAT6 example
dat <- expand.table(LSAT6)
(mod1 <- mirt(dat, 1, itemtype = '1PL'))
fitIndices(mod1)
#Science data, much more sparse so M2 would be more informative
(mod2 <- mirt(Science, 1))
fitIndices(mod2)
Run the code above in your browser using DataLab