R/natural.tolerance.exp.low.R

In burrm/lolcat: Miscellaneous Useful Functions

Defines functions natural.tolerance.exp.low

Documented in natural.tolerance.exp.low

#' @rdname natural.tolerance.exp.low.simple
natural.tolerance.exp.low <- function(
 x, 
 low = min(x),
 ...
) {
    rate <- 1/mean(x - low)

    natural.tolerance.exp.low.simple(
        rate = rate,
        low = low,
        , ...
    )
}