if (FALSE) {
#############################################################################
# EXAMPLE 1: Extracting item response functions mcdina model
#############################################################################
data(data.cdm02, package="CDM")
dat <- data.cdm02$data
q.matrix <- data.cdm02$q.matrix
#-- estimate model
mod1 <- CDM::mcdina( dat, q.matrix=q.matrix)
#-- extract item response functions
prmod1 <- CDM::IRT.irfprob(mod1)
str(prmod1)
}
Run the code above in your browser using DataLab