#############################################################################
# EXAMPLE 1: Extracting item response functions mcdina model
#############################################################################
data(data.cdm02)
dat <- data.cdm02$data
q.matrix <- data.cdm02$q.matrix
# estimate model (only 5 iterations for illustration purposes)
mod1 <- mcdina( dat , q.matrix=q.matrix , maxit = 5)
# extract item response functions
prmod1 <- IRT.irfprob(mod1)
str(prmod1)
Run the code above in your browser using DataLab