mod <- mirt(Science, 1, SE = FALSE)
extr.2 <- extract.item(mod, 2)
Theta <- matrix(seq(-4,4, by = .1))
info.2 <- iteminfo(extr.2, Theta)
#do something with the info?
plot(Theta, info.2, type = 'l', Main = 'Item information')
Run the code above in your browser using DataLab