## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----selector-defaults, echo=FALSE--------------------------------------------
design_n <- c(30L, 100L, 500L, 2000L)
selector_rows <- lapply(design_n, function(n) {
  x <- pairwiseLLM:::adaptive_defaults(n)
  data.frame(
    N = n,
    explore_rate = x$explore_rate,
    refit_pairs_target = x$refit_pairs_target,
    round_pairs_target = x$round_pairs_target,
    rank_strata = x$k_base
  )
})
knitr::kable(do.call(rbind, selector_rows), digits = 3)

## ----btl-defaults, echo=FALSE-------------------------------------------------
btl <- pairwiseLLM:::.adaptive_btl_defaults(100L)
btl_table <- data.frame(
  control = c(
    "model_variant", "ess_bulk_min", "ess_bulk_min_near_stop", "max_rhat",
    "divergences_max", "eap_reliability_min", "stability_lag", "theta_corr_min",
    "theta_sd_rel_change_max", "rank_spearman_min"
  ),
  default_at_N_100 = unlist(btl[c(
    "model_variant", "ess_bulk_min", "ess_bulk_min_near_stop", "max_rhat",
    "divergences_max", "eap_reliability_min", "stability_lag", "theta_corr_min",
    "theta_sd_rel_change_max", "rank_spearman_min"
  )], use.names = FALSE)
)
knitr::kable(btl_table)