## create the dataset
# data <- simulateTest(model = "3PL", items = 20, individuals = 200)
## extract the parameters and transform them from one list to matrix.
# zita <-data$itempars
# parameter matrix
# zita.m <- parameter.matrix(zita)
# parameter list
# zita.l <- parameter.list(zita)
Run the code above in your browser using DataLab