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