# NOT RUN {
# }
# NOT RUN {
mirtCluster() #use all available cores to estimate CI's in parallel
dat <- expand.table(LSAT7)
mod <- mirt(dat, 1)
result <- PLCI.mirt(mod)
result
# model with constraints
mod <- mirt(dat, 'F = 1-5
CONSTRAIN = (1-5, a1)')
result <- PLCI.mirt(mod)
result
mod2 <- mirt(Science, 1)
result2 <- PLCI.mirt(mod2)
result2
#only estimate CI's slopes
sv <- mod2values(mod2)
parnum <- sv$parnum[sv$name == 'a1']
result3 <- PLCI.mirt(mod2, parnum)
result3
# }
Run the code above in your browser using DataLab