## Simulate the test
# data <- simulateTest(model = "2PL", items = 20, individuals = 200)
## item parameters
# zita <-data$itempars
# zita <- list(zita$a, zita$b, zita$c)
## transformation of the parameter b
# zita <- model.transform(zita, model = "3PL", src = "b", target = "d")
# zita <- list(a = zita[,1], d = zita[,1], c = zita[,1])
## Latent traits
# thetas <- data$latentTraits
## Probability model
# prob.2pl(zita, thetas)
Run the code above in your browser using DataLab