R/pegp3.R

Defines functions pegp3

Documented in pegp3

#' @rdname degp3
#' @export
pegp3 <- function(q, kappa=1, sigma, xi, u=0, lower.tail=TRUE, log.p=FALSE){
    res <- pgpd(q, sigma=sigma, xi=xi, u=u, lower.tail=lower.tail, log.p=TRUE)
    if (isTRUE(lower.tail)) {
        res <- kappa * res
    } else {
        res <- .log1mexp(kappa * .log1mexp(res))
    }

    if (log.p) res else exp(res)
}

Try the texmex package in your browser

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

texmex documentation built on May 2, 2019, 5:41 a.m.