Nothing
u2gpd <-
function(u, p = 1, th=0, sigma, xi) {
qgpd((1 - u) / p, sigma=sigma, u=th, xi=xi, lower.tail=FALSE)
}
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.