## 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
# zita <- list(zita$a, zita$b, zita$c)
# zita <- parameter.matrix(zita)
## transform the model parameters
# model.transform(zita, model = "3PL", src = "b", target = "d")
# model.transform(zita, model = "3PL", src = "c", target = "cp")
Run the code above in your browser using DataLab