mdt.options <- function(next_item.criterion,
next_item.estimator,
next_item.prior_dist,
next_item.prior_par,
final_ability.estimator,
constrain_answers,
item_bank) {
psychTestRCAT::adapt_test_options(
next_item.criterion = next_item.criterion,
next_item.estimator = next_item.estimator,
next_item.prior_dist = next_item.prior_dist,
next_item.prior_par = next_item.prior_par,
final_ability.estimator = final_ability.estimator,
constrain_answers = constrain_answers,
avoid_duplicates = "original_melody",
eligible_first_items = which(item_bank$item_index == 1)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.