# NOT RUN {
# }
# NOT RUN {
# fit the 2PL model to LSAT6 data
(mod.2pl <- est_irt(data=LSAT6, D=1, model="2PLM", cats=2))
# extract the item parameter estimates
(x <- getirt(x=mod.2pl, what="par.est"))
# update the standard normal prior deisnty of the ability distribution
# using the estimated item parameters
(upd_prior <- post_den(x=x, data=LSAT6, D=1, group.mean=0, group.var=1))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab