#--- FIT A 2PL AND NOMINAL MIX >>> FINAL SCORE = 5 <<<
SAT12Miss.Mix5 <- mirt(SAT12Miss, 1, itemtype = c( rep("2PLNRM", 31), rep("nominal", 1)),
key = c(1,4,5,2,3,1,2,1,3,1,2,4,2,1,5,3,4,4,1,4,3,3,4,1,3,5,1,3,1,5,4,5))
coef(SAT12Miss.Mix5, printSE = T)
plot(SAT12Miss.Mix5, type = "trace")
#--- FIT A 2PL AND NOMINAL MIX >>> FINAL SCORE = 3 <<<
SAT12Miss.Mix3 <- mirt(SAT12Miss, 1, itemtype = c( rep("2PLNRM", 31), rep("nominal", 1)),
key = c(1,4,5,2,3,1,2,1,3,1,2,4,2,1,5,3,4,4,1,4,3,3,4,1,3,5,1,3,1,5,4,3))
coef(SAT12Miss.Mix3, printSE = T)
plot(SAT12Miss.Mix3, type = "trace")