set.seed(2024)
test_data <- triplet_example_data[1:20,]
block_info <- triplet_block_info
test_data_long <- get_TIRT_long_data(block_info = triplet_block_info, response_data = test_data,
response_varname = build_TIRT_var_names(N_blocks = 5,
block_size = 3, item_name = "i"),
block_name = "Block", item_name = "ID",
trait_name = "Factor", sign_name = "Keying")
if (FALSE) {
test_fit <- fit_TIRT_model(test_data_long, method = "lavaan")
test_fit$fit_object
test_fit$final_estimates
}
Run the code above in your browser using DataLab