if (FALSE) {
#############################################################################
# EXAMPLE 1: Residuals data.read
#############################################################################
library(sirt)
data(data.read, package="sirt")
dat <- data.read
# for Rasch model
mod <- TAM::tam.mml( dat )
# extract residuals
res <- TAM::IRT.residuals( mod )
str(res)
}
Run the code above in your browser using DataLab