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