# NOT RUN {
mod <- mirt(Science, 1)
# single item probabilty tracelines for Item 2
extr.2 <- extract.item(mod, 2)
Theta <- matrix(seq(-4,4, by = .1))
traceline <- probtrace(extr.2, Theta)
head(data.frame(traceline, Theta=Theta))
# probability tracelines for all items in test
tracelines <- probtrace(mod, Theta)
head(tracelines)
# }
Run the code above in your browser using DataLab