# 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)
)
# take a look at the data
head(sdata)
str(attributes(sdata))
# }
# NOT RUN {
# fit a Thurstonian IRT model using lavaan
fit <- fit_TIRT_lavaan(sdata)
print(fit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab