# NOT RUN {
# # Not run
# #
# # data(dichotomousItemParameters)
# #
# # threePlParameters <- dichotomousItemParameters
# # isNot3Pl <- ((dichotomousItemParameters[['focal']][, 3] == 0) |
# # (dichotomousItemParameters[['reference']][, 3] == 0))
# #
# # threePlParameters[['focal']] <- threePlParameters[['focal']][!isNot3Pl, ]
# # threePlParameters[['reference']] <- threePlParameters[['reference']][!isNot3Pl, ]
# # threePlParameters[['focal']][, 3] <- threePlParameters[['focal']][, 3] + 0.1
# # threePlParameters[['reference']][, 3] <- threePlParameters[['reference']][, 3] + 0.1
# # threePlParameters[['focal']][, 2] <- threePlParameters[['focal']][, 2] + 1.5
# # threePlParameters[['reference']][, 2] <- threePlParameters[['reference']][, 2] + 1.5
# # threePlParameters[['focal']] <- threePlParameters[['focal']][-c(12, 16, 28), ]
# # threePlParameters[['reference']] <- threePlParameters[['reference']][-c(12, 16, 28), ]
# #
# # threePlCdif <- Cdif(itemParameters = threePlParameters, irtModel = '3pl',
# # focalAbilities = NULL, focalDistribution = "norm",
# # subdivisions = 5000, logistic = TRUE)
# # threePlDtf <- Dtf(cdif = threePlCdif)
# }
Run the code above in your browser using DataLab