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

## Description

internal use only

## Usage

 `1` ```ptgpd(x, y, z, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0, 1, 0.1), mar3 = c(0, 1, 0.1), dep = 1.5, A1 = 0, A2 = 0, B1 = 3, B2 = 3, checkconv = TRUE, ...) ```

## Arguments

 `x` `y` `z` `model` `mar1` `mar2` `mar3` `dep` `A1` `A2` `B1` `B2` `checkconv` `...`

## Details

internal use only

## Value

internal use only

## Note

internal use only

P. Rakonczai

## References

internal use only

 ``` 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``` ```##---- 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, z, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0, 1, 0.1), mar3 = c(0, 1, 0.1), dep = 1.5, A1 = 0, A2 = 0, B1 = 3, B2 = 3, checkconv = TRUE, ...) { models = c("log", "psilog", "neglog", "psineglog") if (!(model %in% models)) stop(paste("'", model, "' is not a valid model.", sep = "")) else { if (model == "log") ptgpd = ptgpd_log(x, y, z, mar1 = mar1, mar2 = mar2, mar3 = mar3, dep = dep) if (model == "psilog") ptgpd = ptgpd_psilog(x, y, z, mar1 = mar1, mar2 = mar2, mar3 = mar3, dep = dep, A1 = A1, A2 = A2, B1 = B1, B2 = B2, checkconv = checkconv) if (model == "neglog") ptgpd = ptgpd_neglog(x, y, z, mar1 = mar1, mar2 = mar2, mar3 = mar3, dep = dep) if (model == "psineglog") ptgpd = ptgpd_psineglog(x, y, z, mar1 = mar1, mar2 = mar2, mar3 = mar3, dep = dep, A1 = A1, A2 = A2, B1 = B1, B2 = B2, checkconv = checkconv) ptgpd } } ```