## Loading ltm Cat object
data(ltm_cat)
## Store example answers
setAnswers(ltm_cat) <- c(1,0,1,0,1, rep(NA, 35))
## What should be asked next if respondent is currently answering item 6
lookAhead(ltm_cat, 6)
## Loading grm Cat object
data(grm_cat)
## Store example answers
setAnswers(grm_cat) <- c(4,3,5,1,1, rep(NA, 13))
## What should be asked next if respondent is currently answering item 6
lookAhead(grm_cat, 6)
Run the code above in your browser using DataLab