# NOT RUN {
# simulate some data
sdata <- 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)
)
# create data ready for use in SEM software
sem_data <- make_sem_data(sdata)
head(sem_data)
# }
Run the code above in your browser using DataLab