## Simulate the test
# data <- simulateTest(model = "3PL", items = 20, individuals = 200)
## item parameters
# zita <-data$itempars
## Latent traits
# thetas <- data$latentTraits
## Probability model
# probability.3pl(zita, theta = thetas)
Run the code above in your browser using DataLab