R/options.R

In pmcharrison/mdt: Testing Melodic Discrimination Abilities

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)
  )
}