# NOT RUN {
# fit the 1PL model to LSAT6 data and constrain the slope parameters to be equal
fit.1pl <- est_irt(data=LSAT6, D=1, model="1PLM", cats=2, fix.a.1pl=FALSE)
# summary of the estimation
summary(fit.1pl)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab