mod <- mirt(Science, 1)
tabscores <- fscores(mod)
fullscores <- fscores(mod, full.scores = TRUE)
fullscores <- fscores(mod, full.scores = TRUE, method='MAP')
#calculate MAP for a given response vector
fscores(mod, method='MAP', response.vector = c(1,2,3,4))
Run the code above in your browser using DataLab