grm_dt <- genData(eta = genTheta(nsample = 500, nfac = 1),
ipar = genIRTpar(nitem = 10, ncat = 3, nfac = 1))
fit <- runGRM(dat = grm_dt,
lav.syntax = genLavSyn(dat = grm_dt, nfac = 1),
estimator = "WL")
ICCplot(fit, 1, seq(-3, 3, .1), plot.occ = FALSE, base_size = 16)
Run the code above in your browser using DataLab