R/max_over_min.R

In jgabry/RHhelpers: Helper functions for RH imputation and survey weighting

Defines functions max_over_min

Documented in max_over_min

#' Ratio of maximum to minimum
#'
#' @export
#' @param x numeric vector.
#' @return \code{max(x) / min(x)}
#'
max_over_min <- function(x) {
  stopifnot(is.numeric(x))
  max(x) / min(x)
}