# pbgpd: internal In mgpd: mgpd: Functions for multivariate generalized Pareto distribution (MGPD of Type II)

## Description

internal use only

## Usage

 `1` ```pbgpd(x, y, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0, 1, 0.1), dep = 2, a = 1/2, b = 1/2, asy = 0, p = 3, ...) ```

## Arguments

 `x` `y` `model` `mar1` `mar2` `dep` `a` `b` `asy` `p` `...`

## Details

internal use only

## Value

internal use only

## Note

internal use only

P. Rakonczai

## References

internal use only

## See Also

internal use only

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47``` ```##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (x, y, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0, 1, 0.1), dep = 2, a = 1/2, b = 1/2, asy = 0, p = 3, ...) { pbgpd = NULL models = c("log", "psilog", "philog", "neglog", "psineglog", "phineglog", "bilog", "negbilog", "ct", "taj") if (!(model %in% models)) stop(paste("'", model, "' is an unknown model.", sep = "")) else { if (model == "log") pbgpd = pbgpd_log(x, y, mar1 = mar1, mar2 = mar2, dep = dep) if (model == "psilog") pbgpd = pbgpd_psilog(x, y, mar1 = mar1, mar2 = mar2, dep = dep, asy = asy, p = p) if (model == "philog") pbgpd = pbgpd_philog(x, y, mar1 = mar1, mar2 = mar2, dep = dep, asy = asy, p = p) if (model == "neglog") pbgpd = pbgpd_neglog(x, y, mar1 = mar1, mar2 = mar2, dep = dep) if (model == "psineglog") pbgpd = pbgpd_psineglog(x, y, mar1 = mar1, mar2 = mar2, dep = dep, asy = asy, p = p) if (model == "phineglog") pbgpd = pbgpd_phineglog(x, y, mar1 = mar1, mar2 = mar2, dep = dep, asy = asy, p = p) if (model == "bilog") pbgpd = pbgpd_bilog(x, y, mar1 = mar1, mar2 = mar2, dep = dep, a = a, b = b) if (model == "negbilog") pbgpd = pbgpd_negbilog(x, y, mar1 = mar1, mar2 = mar2, dep = dep, a = a, b = b) if (model == "ct") pbgpd = pbgpd_ct(x, y, mar1 = mar1, mar2 = mar2, a = a, b = b) if (model == "taj") pbgpd = pbgpd_taj(x, y, mar1 = mar1, mar2 = mar2, a = a, b = b) } pbgpd } ```

mgpd documentation built on May 2, 2019, 9:39 a.m.