Learn R Programming

copBasic (version 2.2.6)

GHcop: The Gumbel--Hougaard Extreme Value Copula

Description

SYMMETRIC GUMBEL-HOUGAARD---The Gumbel--Hougaard copula (Nelsen, 2006, pp. 118 and 164) is $$\mathbf{C}_{\Theta}(u,v) = \mathbf{GH}(u,v) = \mathrm{exp}\{-[(-\log u)^\Theta+(-\log v)^\Theta]^{1/\Theta}\}\mbox{,}$$ where \(\Theta \in [1 , \infty)\). The copula here is a bivariate extreme value copula (\(BEV\)). The parameter \(\Theta\) is readily estimated using a Kendall Tau (say a sample version \(\hat\tau\)) where the \(\tau\) of the copula (\(\tau_\mathbf{C}\)) is defined as $$\tau_\mathbf{C} = \frac{\Theta - 1}{\Theta} \rightarrow \Theta = \frac{1}{1-\tau}\mbox{.}$$ The copula is readily extended into \(d\) dimensions by $$\mathbf{C}_{\Theta}(u,v) = \mathrm{exp}\{-[(-\log u_1)^\Theta+\cdots+(-\log u_d)^\Theta]^{1/\Theta}\}\mbox{.}$$ However, such an implementation is not available in the copBasic package.

Every Gumbel--Hougaard copula is a multivariate extreme value (\(MEV\)) copula, and hence useful in analysis of extreme value distributions. The Gumbel--Hougaard copula is the only Archimedean \(MEV\) (Salvadori et al., 2007, p. 192). The Gumbel--Hougaard copula has respective lower- and upper-tail dependency parameters of \(\lambda^L = 0\) and \(\lambda^U = 2 - 2^{1/\Theta}\), respectively. Nelsen (2006, p. 96) shows that \(\mathbf{C}^r_\theta(u^{1/r}, v^{1/r}) = \mathbf{C}_\theta(u,v)\) so that every Gumbel--Hougaard copula has a property known as max-stable. A dependence measure uniquely defined for \(BEV\) copulas is shown under rhobevCOP.

A comparison through simulation between Gumbel--Hougaard implementations by the R packages acopula, copBasic, copula, and Gumbel is shown in the Examples section. At least three divergent techniques for random variate generation are used amongst those packages. The simulations also use copBasic-style random variate generation (conditional simulation) using an analytical-numerical hybrid solution to conditional inverse described in the Note section.

TWO-PARAMETER GUMBEL--HOUGAARD---A permutation symmetric (isCOP.permsym) but almost certainly radial asymmetric (isCOP.radsym) version of the copula is readily constructed (Brahimi et al., 2015) into a two-parameter version: $$\mathbf{C}(u,v; \beta_1, \beta_2) = \biggl[ \biggl(\bigl(u^{-\beta_2} -1\bigr)^{\beta_1} + \bigl(v^{-\beta_2} -1\bigr)^{\beta_1} \biggr)^{1/\beta_1} + 1 \biggr]^{-1/\beta_2}\mbox{,}$$ where \(\beta_1 \ge 1\) and \(\beta_2 > 0\). Both parameters controls the general level of association, whereas parameter \(\beta_2\) can be thought of as controlling left-tail dependency (taildepCOP, \(\lambda^{[U\mid L]}_{(\beta_1, \beta_2)}\); e.g. \(\lambda^U_{(1.5; \beta_2)} = 0.413\) for all \(\beta_2\) but \(\lambda^L_{(1.5; 0.2)} = 0.811\) and \(\lambda^L_{(1.5; 2.2)} = 0.099\). Brahimi et al. (2015) report a Spearman Rho (rhoCOP) for a \(\mathbf{GH}_{(1.5, 0.2)}(u,v)\) is 0.5, which is readily confirmed in copBasic by the function call rhoCOP(cop=GHcop, para=c(1.5,0.2)). The two-parameter \(\mathbf{GH}\) is triggered if the length of the para argument is exactly 2.

ASYMMETRIC GUMBEL--HOUGAARD---An asymmetric version of the copula is readily constructed (Joe, 2014, p. 185--186) into a three-parameter version with Marshall--Olkin copulas on the boundaries: $$\mathbf{C}(u,v; \Theta, \pi_2, \pi_3) = \mathrm{exp}[-\mathcal{A}(-\log u, -\log v; \Theta, \pi_2, \pi_3)]\mbox{,}$$ where \(\Theta \ge 1\) as before, \(0 \le \pi_2, \pi_3 \le 1\), and

$$\mathcal{A}(x, y; \Theta, \pi_2, \pi_3) = [(\pi_2 x)^\Theta + (\pi_3 y)^\Theta]^{1/\Theta} + (1-\pi_2)x + (1-\pi_3)y\mbox{.}$$

The asymmetric \(\mathbf{GH}\) is triggered if the length of the para argument is exactly 3. The GHcop function provides no mechanism for estimation of the parameters for the asymmetric version. Reviewing simulations, the bounds on the \(\pi\) parameters in Joe (2014, p. 185) “[\(0 \le \pi_2 < \pi_3 \le 1\)]” might be incorrect---by Joe back referencing to Joe (2014, eq. 4.35, p. 183) the \(\pi\)-limits as stated for copBasic are shown. An algorithm for parameter estimation for the asymmetric \(\mathbf{GH}\) using two different measures of bivariate skewness as well as an arbitrary measure of association is shown in section Details in joeskewCOP.

Usage

GHcop(u, v, para=NULL, tau=NULL, tau.big=0.985, cor=NULL, ...)

Value

Value(s) for the copula are returned using the \(\Theta\) as set by argument para. Alternative returned values are possible: (1) If para=NULL and tau is set, then \(\tau_\mathbf{C} \rightarrow \Theta\) and an R

list is returned. (2) If para=NULL and tau=NULL, then an attempt to estimate \(\Theta\) from the u and v is made by \(\mathrm{cor}(u,v)_\tau \rightarrow \tau_\mathbf{C} \rightarrow \Theta\) by either trigger using cor(u,v, method="kendall") in R, and an R

list is returned. The possibly returned list has the following elements:

para

The computed \(\Theta\) from the given bivariate data in para; and

tau

The sample estimate of \(\tau\).

Arguments

u

Nonexceedance probability \(u\) in the \(X\) direction;

v

Nonexceedance probability \(v\) in the \(Y\) direction;

para

A vector (single element or triplet) of parameters---the \(\Theta\) parameter of the copula;

tau

Kendall Tau \(\tau\) from which to estimate the parameter \(\Theta\);

tau.big

The largest value for \(\tau_\mathbf{C}\) prior to switching to the \(\mathbf{M}\) copula applicable to the the symmetric version of this copula;

cor

A copBasic syntax for “the correlation coefficient” suitable for the copula---a synonym for tau; and

...

Additional arguments to pass.

Author

W.H. Asquith

Details

Numerical experiments seem to indicate for \(\tau_\mathbf{C} > 0.985\) that failures in the numerical partial derivatives in derCOP and derCOP2 result---a \(\tau_\mathbf{C}\) this large is indeed large. As \(\Theta \rightarrow \infty\) the Gumbel--Hougaard copula becomes the Fréchet--Hoeffding upper-bound copula \(\mathbf{M}\) (see M). A \(\tau_\mathbf{C} \approx 0.985\) yields \(\Theta \approx 66 + 2/3\), then for \(\Theta > 1/(1-\tau_\mathbf{C})\) flips over to the \(\mathbf{M}\) copula with a warning issued.

References

Asquith, W.H., 2011, Distributional analysis with L-moment statistics using the R environment for statistical computing: Createspace Independent Publishing Platform, ISBN 978--146350841--8.

Brahimi, B., Chebana, F., and Necir, A., 2015, Copula representation of bivariate L-moments---A new estimation method for multiparameter two-dimensional copula models: Statistics, v. 49, no. 3, pp. 497--521.

Joe, H., 2014, Dependence modeling with copulas: Boca Raton, CRC Press, 462 p.

Nelsen, R.B., 2006, An introduction to copulas: New York, Springer, 269 p.

Salvadori, G., De Michele, C., Kottegoda, N.T., and Rosso, R., 2007, Extremes in Nature---An approach using copulas: Springer, 289 p.

Zhang, L., and Singh, V.P., 2007, Gumbel--Hougaard copula for trivariate rainfall frequency analysis: Journal Hydrologic Engineering, v. 12, Special issue---Copulas in Hydrology, pp. 409--419.

See Also

M, GLcop, HRcop, tEVcop, rhobevCOP