# NOT RUN {
# create a 3PL model with given parameters
x <- model_3pl()$gendata(10, 5)
irt_model("3pl", x$people, x$items, x$responses)
# create a 3PL model with generated data
irt_model("3pl")$gendata(10, 5)
# generate data with Rasch items
irt_model("3pl")$gendata(10, 5, a.sd=0, c.alpha=0)
# draw test/item characteristic curve
x <- irt_model("3pl")$gendata(20, 5)
plot(x, stats="prob")
plot(x, stats="prob", total=FALSE)
# draw test/iten information function
plot(x, stats="info")
plot(x, stats="info", total=FALSE)
# draw loglikelihood
plot(x, stats="loglik")
plot(x, stats="loglik", total=FALSE, theta=seq(-5, 5, .1))
# }
Run the code above in your browser using DataLab