# Loading the 'tcals' parameters
data(tcals)
tcals <- as.matrix(tcals)
# Item bank creation with 'tcals' item parameters
bank <- createItemBank(tcals)
# Selecting the next item, current ability estimate is 0
nextItem(bank, 0) # item 63 is selected
# Selecting the next item, current ability estimate is 0
# and item 63 is removed
nextItem(bank, 0, out=63) # item 10 is selected
# Selecting the next item, current ability estimate is 0
# and items 63 and 10 are removed
nextItem(bank, 0, out=c(63,10)) # item 62 is selected
Run the code above in your browser using DataLab