## Not run: ------------------------------------
# dat <- sim10GDINA$simdat
# Q <- sim10GDINA$simQ
# mod1 <- GDINA(dat = dat, Q = Q, model = "GDINA")
# #plot item response functions for item 10
# plotIRF(mod1,10)
# plotIRF(mod1,9, errorbar = TRUE)
## ---------------------------------------------
Run the code above in your browser using DataLab