mod <- mirt(Science, 1)
tabscores <- fscores(mod)
fullscores <- fscores(mod, full.scores = TRUE)
fullscores <- fscores(mod, full.scores = TRUE, method='MAP')
mod2 <- confmirt(Science, 1)
tabscores2 <- fscores(mod2, ndraws = 5000)
Run the code above in your browser using DataLab