#data <- simulateTest(model = "2PL", items = 20, individuals = 800)
#fit <- irtpp(dataset = data$test,model = "2PL")
#fit <- parameter.matrix(fit$z)
#information(fit, c(-2, 0))
#information(fit, c(0, 2), items = c(3, 5))
Run the code above in your browser using DataLab