## Simulation data for the model "3pl"
# data <- simulateTest(model = "3PL", items = 100, individuals = 1000)
## Estimation of the parameters
# est <- irtpp(data$test, model = "3PL")
## Parameter Matrix
# z <- parameter.matrix(est$z)
#trait <- individual.traits(model = "3PL", itempars = z, dataset = data$test,
# method = "EAP", probability_matrix = est$prob_mat)
Run the code above in your browser using DataLab