R/gpdjoint.1p.R

`gpdjoint.1p` <-
function(x, y, copula, x.est, y.est)
{
    h <- gpd.1p(x, x.est)
    g <- gpd.1p(y, y.est)
    val <- pcopula(copula, h, g)
    val
}

Try the Rsafd package in your browser

Any scripts or data that you put into this service are public.

Rsafd documentation built on May 2, 2019, 5:20 p.m.