data(LSAT7)
fulldata <- expand.table(LSAT7)
mod1 <- mirt(fulldata,1)
mod2 <- mirt(fulldata,1, itemtype = '1PL')
mod3 <- mirt(fulldata,2)
itemplot(mod1, 2)
itemplot(mod1, 2, type = 'info')
mods <- list(twoPL = mod1, onePL = mod2)
itemplot(mods, 1, type = 'RE')
itemplot(mod3, 3, type = 'info')
Run the code above in your browser using DataLab