# 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,10, errorbar = TRUE)
# }
Run the code above in your browser using DataLab