R/policies_constructors.R

In onbernard/funbandit: What the Package Does (One Line, Title Case)

#' @include make_aio_ctxt.R make_aio.R epsilon_greedy.R exp3.R kullback_leibler_upper_confidence_bound.R thompson_sampling.R upper_confidence_bound.R
NULL

# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
# cyclical <-
#   make_policy(init_cyclical, choose_cyclical, receive_cyclical, "cyclical", c())
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
epsilon_greedy_policy <-
  make_aio(
    init_epsilon_greedy,
    choose_epsilon_greedy,
    receive_epsilon_greedy,
    c("epsilon_greedy"),
    c("epsilon")
  )
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
exp3_policy <-
  make_aio(init_exp3, choose_exp3, receive_exp3, "exp3", c("gamma"))
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
# from_distribution_policy <-
#   make_policy(
#     init_from_distribution,
#     choose_from_distribution,
#     receive_from_distribution,
#     name = "from_distribution"
#   )
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
kullback_leibler_ucb_policy <-
  make_aio(init_kl_ucb, choose_kl_ucb, receive_kl_ucb, name = "kl_ucb", c("c"))
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
thompson_sampling_policy <-
  make_aio(
    init_thompson_sampling,
    choose_thompson_sampling,
    receive_thompson_sampling,
    "thompson_sampling",
    c("alpha", "beta")
  )
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
upper_confidence_bound_policy <-
  make_aio(init_ucb, choose_ucb, receive_ucb, "ucb", c("alpha"))

proto_linucb <-
  make_aio_ctxt(init_linucb,
                choose_linucb,
                receive_linucb,
                c("linucb"),
                c("alpha"))
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
proto_lints <-
  make_aio_ctxt(init_lints,
                choose_lints,
                receive_lints,
                c("lints"),
                c("iter", "v"))
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
proto_krr_ucb <-
  make_aio_ctxt(
    init_krr_ucb,
    choose_krr_ucb,
    receive_krr_ucb,
    c("krr_ucb"),
    c("hindsight", "update_frequency", "alpha")
  )
# === ==== === ==== === ==== === ==== === ==== === ==== === ==== === ==== ===
proto_logit_ucb <-
  make_aio_ctxt(init_logit_ucb,
                choose_logit_ucb,
                receive_logit_ucb,
                c("logitucb"),
                c("alpha"))