R/cv.R

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

Defines functions cv

Documented in cv

#' Coefficient of variation
#'
#' @export
#' @param x numeric vector.
#' @return \code{sd(x) / mean(x)}
#'
cv <- function(x) {
  stopifnot(is.numeric(x))
  sd(x) / mean(x)
}