######################################
# DINO data example
# estimate DINO model
mod <- din( sim.dino , q.matrix = sim.qmatrix , rule="DINO")
# estimate classification reliability
cdm.est.class.accuracy( mod , n.sims=5000)
## > cdm.est.class.accuracy( mod , n.sims=5000)
## P_a P_a_sim P_c P_c_sim
## MLE 0.668 0.661 0.583 0.541
## MAP 0.807 0.785 0.717 0.670
Run the code above in your browser using DataLab