# NOT RUN {
# }
# NOT RUN {
x <- mirt(Science, 1)
x2 <- mirt(Science, 2)
anova(x, x2)
# bounded parameter
dat <- expand.table(LSAT7)
mod <- mirt(dat, 1)
mod2 <- mirt(dat, 1, itemtype = c(rep('2PL', 4), '3PL'))
anova(mod, mod2) #unbounded test
anova(mod, mod2, bounded = TRUE) #bounded
# }
Run the code above in your browser using DataLab