#Simulates a test and returns a list:
test <- simulateTest()
#the simulated data:
data <- test$test
#model:
mod=irtpp(dataset = data,model = "3PL")
#Convert parameters to a matrix
zz <- parameter.matrix(mod$z,byrow = FALSE)
#Estimating Latent Traits
p_mat <- mod$prob_mat
trait <- individual.traits(model="3PL", itempars = zz,method = "EAP",dataset = data,
probability_matrix = p_mat)
#Z3 PERSONFIT-Statistic
orlando_itemf(patterns = as.matrix(trait),G = 61,zita = mod$z,model = "3PL")
Run the code above in your browser using DataLab