R/revd.R

revd <-
function (n, location = 0, scale = 1) 
{
    na.index <- is.na(scale)
    if (any(!na.index)) 
        if (scale[!na.index] < .Machine$double.eps) 
            stop("All values of 'scale' must be positive.")
    location - scale * log(-log(runif(n)))
}

Try the EnvStats package in your browser

Any scripts or data that you put into this service are public.

EnvStats documentation built on Sept. 11, 2024, 6:03 p.m.