#' @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,
, ...
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.