## Not run:
# #############################################################################
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab