qmatrix <- tibble::tibble(item = paste0("item_", 1:10),
att1 = sample(0:1, size = 10, replace = TRUE),
att2 = sample(0:1, size = 10, replace = TRUE),
att3 = sample(0:1, size = 10, replace = TRUE),
att4 = sample(0:1, size = 10, replace = TRUE))
get_parameters(dina(), qmatrix = qmatrix, identifier = "item")
Run the code above in your browser using DataLab