if (FALSE) {
dat <- expand.table(LSAT7)
head(dat)
itemstats(dat)
(mod <- mirt(dat, 1))
coef(mod)
}
if (FALSE) {
dat <- expand.table(LSAT7)
head(dat)
itemstats(dat)
(mod <- mirt(dat, 1))
coef(mod)
}
Run the code above in your browser using DataLab