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