Nothing
#' @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)
}
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.