copula (version 0.99-4)

evCopula: Construction of extreme-value copula class objects

Description

Constructs an extreme-value copula class object with its corresponding parameter.

Usage

evCopula(family, param, dim = 2, ...)
galambosCopula(param)
huslerReissCopula(param)
tawnCopula(param)
tevCopula(param, df = 4, df.fixed = FALSE)

Arguments

family

a character string specifying the family of an extreme-value copula.

param

a numeric vector specifying the parameter values.

dim

the dimension of the copula.

df

a numerical value specifying the number of degrees of freedom the t extreme-value copula.

df.fixed

TRUE means that the degrees of freedom will never be considered as a parameter to be estimated; FALSE means that df will be estimated if the object is passed as argument to fitCopula.

...

currently nothing.

Value

• An object of class "gumbelCopula", "galambosCopula", "huslerReissCopula", "tawnCopula", or "tevCopula".

See Also

ellipCopula, archmCopula, gofEVCopula, Anfun.

Examples

## Notice that, for a given degree of dependence,
## these copulas are strikingly similar.

tau <- 0.33

gumbel.cop <- evCopula("gumbel", param=2)
gumbel.cop@parameters <- calibKendallsTau(gumbel.cop, tau)

galambos.cop <- galambosCopula(2)
galambos.cop@parameters <- calibKendallsTau(galambos.cop, tau)

huslerReiss.cop <- huslerReissCopula(2)
huslerReiss.cop@parameters <- calibKendallsTau(huslerReiss.cop, tau)

tawn.cop <- tawnCopula(0.3)
tawn.cop@parameters <- calibKendallsTau(tawn.cop, tau)

tev.cop <- tevCopula(0.7)
tev.cop@parameters[1] <- calibKendallsTau(tev.cop, tau)

curve(Afun(gumbel.cop, x), 0, 1)
curve(Afun(galambos.cop, x), lty=2, add=TRUE)
curve(Afun(huslerReiss.cop, x), lty=3, add=TRUE)
curve(Afun(tawn.cop, x), lty=4, add=TRUE)
curve(Afun(tev.cop, x), lty=5, add=TRUE)