Nothing
qlaplace <-
function(p, mean=0, sd=1, lower.tail=TRUE) {
# Laplace (double exponential) quantile function with mean equal to \code{mean} and standard deviation equal to \code{sd}.
# 'p': Vector of probabilities.
# 'mean': Population mean.
# 'sd': Population standard deviation.
# 'lower.tail': Logical; if \code{TRUE} (default), probabilities are \code{P[X <= x]}; otherwise, \code{P[X > x]}.
# example: # 5th, 15th, 25th, ..., 95th percentiles from a Laplace( 50, 10 ) distribution.
# qlaplace( seq( 0.05, 0.95, length.out=11 ), 50, 10 )
if (!is.numeric(p)) stop("'p' must be numeric.")
if (min(p)<0 | max(p)>1) stop("'p' must be between 0 and 1.")
if (!is.numeric(mean)) stop("'mean' must be numeric.")
if (!is.numeric(sd)) stop("'sd' must be numeric.")
if (sd<0) stop("'sd' cannot be negative.")
if (!lower.tail) p=1-p
mean + ( 2*(p<=0.5)-1 ) * sd / sqrt(2) * log( 2 * (p*(p<=0.5)+(1-p)*(p>0.5)) )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.