R/derived_dose_selector.R

In brockk/dosefinding: A Modular Approach to Dose-Finding Clinical Trials

# Selector interface

#' @export
tox_target.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% tox_target(...))
}

#' @export
tox_limit.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% tox_limit(...))
}

#' @export
eff_limit.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% eff_limit(...))
}

#' @export
num_patients.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% num_patients(...))
}

#' @export
n_at_dose.derived_dose_selector <- function(x, dose = NULL, ...) {
  if(!is.null(dose)) {
    if(is.character(dose)) {
      if(dose == "recommended") {
        rec_d <- recommended_dose(x)
        return(x$parent %>% n_at_dose(dose = rec_d, ...))
      }
    }
  }

  # By default:
  return(x$parent %>% n_at_dose(dose = dose, ...))
  # return(.n_at_dose(x$parent, dose, ...))
}

#' @export
cohort.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% cohort(...))
}

#' @export
doses_given.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% doses_given(...))
}

#' @export
tox.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% tox(...))
}

#' @export
eff.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% eff(...))
}

#' @export
num_doses.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% num_doses(...))
}

#' @export
dose_indices.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% dose_indices(...))
}

#' @export
dose_strings.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% dose_strings(...))
}

#' @export
recommended_dose.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% recommended_dose(...))
}

#' @export
continue.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% continue(...))
}

#' @export
#' @importFrom tibble tibble
model_frame.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% model_frame(...))
}

#' @export
is_randomising.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% is_randomising(...))
}

#' @export
prob_administer.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% prob_administer(...))
}

#' @export
tox_at_dose.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% tox_at_dose(...))
}

#' @export
eff_at_dose.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% eff_at_dose(...))
}

#' @export
empiric_tox_rate.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% empiric_tox_rate(...))
}

#' @export
mean_prob_tox.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% mean_prob_tox(...))
}

#' @export
median_prob_tox.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% median_prob_tox(...))
}

#' @export
empiric_eff_rate.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% empiric_eff_rate(...))
}

#' @export
mean_prob_eff.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% mean_prob_eff(...))
}

#' @export
median_prob_eff.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% median_prob_eff(...))
}

#' @export
dose_admissible.derived_dose_selector <- function(x, ...) {
  return(x$parent %>% dose_admissible(...))
}

#' @export
prob_tox_quantile.derived_dose_selector <- function(x, p, ...) {
  return(x$parent %>% prob_tox_quantile(p, ...))
}

#' @export
prob_tox_exceeds.derived_dose_selector <- function(x, threshold, ...) {
  return(x$parent %>% prob_tox_exceeds(threshold, ...))
}

#' @export
prob_eff_quantile.derived_dose_selector <- function(x, p, ...) {
  return(x$parent %>% prob_eff_quantile(p, ...))
}

#' @export
prob_eff_exceeds.derived_dose_selector <- function(x, threshold, ...) {
  return(x$parent %>% prob_eff_exceeds(threshold, ...))
}

#' @export
supports_sampling.derived_dose_selector <- function(x, ...) {
  return(supports_sampling(x$parent))
}

#' @export
prob_tox_samples.derived_dose_selector <- function(x, tall = FALSE, ...) {
  return(prob_tox_samples(x$parent, tall = tall, ...))
}

#' @export
prob_eff_samples.derived_dose_selector <- function(x, tall = FALSE, ...) {
  return(prob_eff_samples(x$parent, tall = tall, ...))
}

#' @export
utility.derived_dose_selector <- function(x, ...) {
  return(utility(x$parent, ...))
}

#' @export
weight.derived_dose_selector <- function(x, ...) {
  return(weight(x$parent))
}

#' @export
print.stop_when_too_toxic_selector <- function(x, ...) {
  .dose_selector_print(x$parent, ...)
}

#' @export
as_tibble.derived_dose_selector <- function(x, ...) {
  .dose_selector_to_tibble(x$parent, ...)
}

#' @export
summary.derived_dose_selector <- function(object, ...) {
  summary(object$parent, ...)
}