#View parnumber index
data(LSAT7)
data <- expand.table(LSAT7)
cmodel <- confmirt.model()
F1 = 1,4,5
F2 = 2,3
mod <- mirt(data, cmodel, SE = TRUE)
coef(mod, allpars = TRUE)
index <- mirt(data, cmodel, pars = 'values')
index
#second factor slopes equal to 0?
L <- rep(0, 30)
L[c(7, 12)] <- 1
wald(L, mod)
#simultaniously test equal factor slopes for item 2 and 3, and 4 and 5
L <- matrix(0, 2, 30)
L[1,16] <- L[2, 7] <- 1
L[1,21] <- L[2, 12] <- -1
wald(L, mod)
#logLiklihood tests (requires estimating a new model)
mod2 <- mirt(data, cmodel, constrain = list(c(7,12), c(16,21)))
anova(mod2, mod)
Run the code above in your browser using DataLab