# 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