# NOT RUN {
# # Not run
# # data(dichotomousItemParameters)
# # threePlCdif <- Cdif(itemParameters = dichotomousItemParameters, irtModel = '3pl',
# # focalAbilities = NULL, focalDistribution = "norm",
# # subdivisions = 5000, logistic = TRUE)
# }
Run the code above in your browser using DataLab