## Loading ltm Cat object
data(ltm_cat)
## Printing current answers slot
getAnswers(ltm_cat)
## Storing answer of 0 to item 1
ltm_cat <- storeAnswer(ltm_cat, item = 1, answer = 0)
## Now object reflects answer to item 1
getAnswers(ltm_cat)
Run the code above in your browser using DataLab