if (FALSE) {
#############################################################################
# EXAMPLE 1: Dichotomous data data.sim.rasch
#############################################################################
data(data.sim.rasch)
dat <- data.sim.rasch
# estimate model
mod1 <- TAM::tam.mml(dat)
# extract dataset (and weights and group if available)
dmod1 <- IRT.data(mod1)
str(dmod1)
}
Run the code above in your browser using DataLab