Nothing
library(POT)
set.seed(123)
x <- rgpd(30, 0, 1, 0.2)
f1 <- fitgpd(x, 0, "med")
convassess(f1)
str(f1)
f1
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.