if (FALSE) {
N <- 2000
# model does not matter if item parameter is probability of success
Q <- sim30GDINA$simQ
J <- nrow(Q)
gs <- matrix(0.1,J,2)
set.seed(12345)
sim <- simGDINA(N,Q,gs.parm = gs)
GDINA.est <- GDINA(sim$dat,Q)
CR <- ClassRate(sim$attribute,personparm(GDINA.est))
CR
}
Run the code above in your browser using DataLab