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 = "mplus")
predict_scores(test_fit$fit_object, newdata = test_data[21:40,])
}
Run the code above in your browser using DataLab