## Not run:
# # test defined in mirtCAT help file, first example
# CATdesign <- mirtCAT(df, mod, design_elements = TRUE)
#
# computeCriteria(CATdesign, criteria = 'MI')
# computeCriteria(CATdesign, criteria = 'MEI')
#
# ## End(Not run)
Run the code above in your browser using DataLab