data(LSAT7)
fulldata <- expand.table(LSAT7)
mod1 <- mirt(fulldata,1)
mod2 <- mirt(fulldata,2)
itemplot(mod1)
itemplot(mod1, combine = 5, auto.key=list(space="right"))
itemplot(mod2, drape = TRUE)
itemplot(mod2, type = "vectorplot1")
Run the code above in your browser using DataLab