u2gpd <- function(u, p = 1, th=0, sigma, xi) { qgpd((1 - u) / p, sigma=sigma, u=th, xi=xi, lower.tail=FALSE) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.