## Not run: ------------------------------------
# # simulated responses
# Q <- sim10GDINA$simQ
# dat <- sim10GDINA$simdat
#
# #misspecified Q
# misQ <- Q
# misQ[10,] <- c(0,1,0)
# out1 <- autoGDINA(dat,misQ,modelselectionrule="largestp")
# out1
# summary(out1)
# AIC(out1$CDM.obj)
#
#
#
# #using the other selection rule
# out11 <- autoGDINA(dat,misQ,modelselectionrule="simpler",reducedCDM = c("DINO","DINA"))
# out11
# summary(out11)
#
# # disable model selection function
# out12 <- autoGDINA(dat,misQ,modelselection=FALSE)
# out12
# summary(out12)
#
# # -- Only consider some reduced CDMs
# out2 <- autoGDINA(dat,misQ,reducedCDM = c("RRUM","LLM"))
#
# # Disable Q-matrix validation
# out3 <- autoGDINA(dat = dat, Q = misQ, Qvalid = FALSE,alpha.level=0.01)
# out3
# summary(out3)
## ---------------------------------------------
Run the code above in your browser using DataLab