Nothing
`gpdjoint.2p` <-
function(x, y, copula, x.est, y.est)
{
h <- gpd.2p(x, x.est)
g <- gpd.2p(y, y.est)
val <- pcopula(copula, h, g)
val
}
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.