R/generic_functions.R

In kravitz-eli/simCondSurv: What the Package Does (One Line, Title Case)

#' Generic function to call samplers
#'
#' @param u numeric vector, \eqn{0 \leq u  \leq 1} for all elements in u.
#' @param t0 Nonnegative real number. The time the survival function is
#' conditioned on. \code{t0 = 0} will return samples from the unconditional distribution
#' @param HR hazard ratio between treatment arm and control arm
#' @param params named list of parameters for distribution
#'
#' @return
#' @export
#'
#' @examples
cond_sample <- function(x, ...) {

  UseMethod("cond_sample", x)

}


#' Method for when the user supplied distribution doesn't match one of the
#' options in the code.
#'
#' @param x
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
cond_sample.default <- function(x, ...){
  warning(paste("No methods for distribution:",
                class(x)))

}

# Survival functions have different parameterizations than R's built in pdistribution, cdistribution, qdistribution
eval_pdf = function(x, ...) UseMethod("eval_pdf")

eval_cdf = function(x, ...) UseMethod("eval_cdf")