## Simulate the test
# data <- simulateTest(model = "3PL", items = 20, individuals = 200)
## item parameters
# zita <-data$itempars
## plot of test
# test.plot(zita)
## plot of item 5
# test.plot(zita, i = 5)
Run the code above in your browser using DataLab