Nothing
`qgpd2` <-
function(N , sigma = 1 , xi = 1 , u = 0, la = 1 ) # returns N observation return level
u + ( sigma * ( ( N * la )^( xi ) - 1)) / xi
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.