#View parnumber index
data(LSAT7)
data <- expand.table(LSAT7)
cmodel <- confmirt.model()
F1 = 1,4,5
F2 = 2,3
mod <- mirt(data, cmodel)
coef(mod, allpars = TRUE)
index <- mirt(data, cmodel, constrain = 'index')
index
#second factor slopes equal to 0?
L <- rep(0, 30)
L[c(7, 12)] <- 1
wald(L, mod)
#last two items same factor 1 slope, and item 2 and 3 same factor slope
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