# NOT RUN {
#############################################################################
# EXAMPLE 1: 2PL example
#############################################################################
library(sirt)
data(data.read, package="sirt")
dat <- data.read
#* estimate 2PL model
mod <- TAM::tam.mml.2pl( resp=dat )
#* define theta vector
theta <- seq(-3,3, len=41)
#* compute item response probabilities
probs <- TAM::tam_irf_3pl( theta=theta, AXsi=mod$AXsi, B=mod$B )
str(probs)
# }
Run the code above in your browser using DataLab