#Simulates a test and returns a list:
test <- simulateTest()
#the simulated data:
data <- test$test
#model:
mod <- irtpp(dataset = data,model = "3PL")
#latent trait:
zz <- parameter.matrix(mod$z)
p_mat <- mod$prob_mat
traits <- individual.traits(model="3PL",method = "EAP",dataset = data,itempars = zz,
probability_matrix=p_mat)
#Z3 PERSONFIT-Statistic
z3_personf(data = data,zita = mod$z,patterns = traits)
Run the code above in your browser using DataLab