Nothing
dggev <-
function(x,xi,mu,sigma,delta)
{x=(1/(sigma*gamma(delta)))*(1+xi*(x-mu)/sigma)^(-1-delta/xi)*exp(-(1+xi*(x-mu)/sigma)^(-1/xi))
return(x)}
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.