## Simulation data for the model "1pl"
# data <- simulateTest(model = "1PL", items = 10, individuals = 500)
## Estimation of the parameters
# irtpp(dataset = data$test, model = "1PL")
## Simulation data for the model "2pl"
# data <- simulateTest(model = "2PL", items = 20, individuals = 800)
## Estimation of the parameters
# irtpp(dataset = data$test, model = "2PL")
## Simulation data for the model "3pl"
# data <- simulateTest(model = "3PL", items = 100, individuals = 1000)
## Estimation of the parameters
# irtpp(dataset = data$test, model = "3PL")
Run the code above in your browser using DataLab