# NOT RUN {
data("itemBank")
# Build the cat.dt
nodes = CAT_DT(bank = itemBank, model = "GRM", crit = "MEPV",
C = 0.3, stop = c(3,0.5), limit = 200, inters = 0.98,
p = 0.9, dens = dnorm, 0, 1)
# Estimate the ability level of a subject with responses res
estimation = CAT_ability_est(nodes, res = itemRes[1, ])
#plot the estimations
plot(estimation$graphics)
# }
Run the code above in your browser using DataLab