# NOT RUN {
sim_data <- sim_TIRT_data(
npersons = 100,
ntraits = 3,
nblocks_per_trait = 4,
gamma = 0,
lambda = c(runif(6, 0.5, 1), runif(6, -1, -0.5)),
Phi = diag(3)
)
# show the created Mplus code
lapply(make_mplus_code(sim_data), cat)
# }
Run the code above in your browser using DataLab