## Loading ltm Cat object
data(ltm_cat)
## Store example answers
setAnswers(ltm_cat) <- c(1,0,1,0,1, rep(NA, 35))
## Calculate observed information for different ability parameters and items
obsInf(ltm_cat, theta = 1, item = 10)
obsInf(ltm_cat, theta = 1, item = 11)
obsInf(ltm_cat, theta = 0, item = 10)
obsInf(ltm_cat, theta = 0, item = 11)
Run the code above in your browser using DataLab