# NOT RUN {
# }
# NOT RUN {
dat <- expand.table(deAyala)
model <- 'F = 1-5
CONSTRAIN = (1-5, a1)'
mod <- mirt(dat, model)
Theta <- matrix(seq(-6,6,.01))
tscore <- expected.test(mod, Theta)
tail(cbind(Theta, tscore))
# use only first two items (i.e., a bundle)
bscore <- expected.test(mod, Theta, which.items = 1:2)
tail(cbind(Theta, bscore))
# }
Run the code above in your browser using DataLab