#' @export
range.min <- function(distribution, ...) {
d <- distribution$components$distributions
r <- lapply(d, range)
Reduce(pmin, r)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.