qmatrix <- data.frame(
att1 = sample(0:1, size = 5, replace = TRUE),
att2 = sample(0:1, size = 5, replace = TRUE)
)
data <- data.frame(
item_1 = sample(0:1, size = 20, replace = TRUE),
item_2 = sample(0:1, size = 20, replace = TRUE),
item_3 = sample(0:1, size = 20, replace = TRUE),
item_4 = sample(0:1, size = 20, replace = TRUE),
item_5 = sample(0:1, size = 20, replace = TRUE)
)
model_spec <- dcm_specify(qmatrix = qmatrix,
measurement_model = lcdm(),
structural_model = unconstrained())
stan_data(model_spec, data = data)
Run the code above in your browser using DataLab