
Last chance! 50% off unlimited learning
Sale ends in
ClassRate(att1, att2)
## Not run: ------------------------------------
# N <- 2000
# # ---- Simulated G-DINA model ----- #
#
# # using probability of success in matrix format ---- #
# # 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