## Not run: ------------------------------------
# dat <- sim10GDINA$simdat
# Q <- sim10GDINA$simQ
# Q[1,] <- c(0,1,0)
# mod1 <- GDINA(dat = dat, Q = Q, model = "GDINA")
# out <- Qval(mod1,eps = 0.9)
# item <- c(1,2,10)
# mesaplot(out,item=item,data.label=FALSE,type="all")
# mesaplot(out,item=10,type="best",eps=0.95)
# mesaplot(out,item=10,type="all",no.qvector=5)
## ---------------------------------------------
Run the code above in your browser using DataLab