BiCopEstList | R Documentation |
This function allows to compare bivariate copula models across a number of families w.r.t. the fit statistics log-likelihood, AIC, and BIC. For each family, the parameters are estimated by maximum likelihood.
BiCopEstList(u1, u2, familyset = NA, weights = NA, rotations = TRUE, ...)
u1 , u2 |
Data vectors of equal length with values in |
familyset |
Vector of bivariate copula families to select from.
The vector has to include at least one bivariate copula
family that allows for positive and one that allows for negative dependence.
If |
weights |
Numerical; weights for each observation (optional). |
rotations |
If |
... |
further arguments passed to |
First all available copulas are fitted using maximum likelihood estimation.
Then the criteria are computed for all available copula families (e.g., if
u1
and u2
are negatively
dependent, Clayton, Gumbel, Joe, BB1, BB6, BB7 and BB8 and their survival
copulas are not considered) and the family with the minimum value is chosen.
For observations u_{i,j},\ i=1,...,N,\ j=1,2,
the AIC of a bivariate copula family c
with parameter(s)
\boldsymbol{\theta}
is defined as
AIC := -2 \sum_{i=1}^N
\ln[c(u_{i,1},u_{i,2}|\boldsymbol{\theta})] + 2k,
where k=1
for one parameter
copulas and k=2
for the two parameter t-, BB1, BB6, BB7 and BB8
copulas. Similarly, the BIC is given by
BIC := -2 \sum_{i=1}^N
\ln[c(u_{i,1},u_{i,2}|\boldsymbol{\theta})] + \ln(N)k.
Evidently, if the BIC is chosen, the penalty for two parameter families is stronger than when using the AIC.
A list containing
models |
a list of |
summary |
a data frame containing the log-likelihoods, AICs, and BICs of all the fitted models. |
Thomas Nagler
Akaike, H. (1973). Information theory and an extension of the maximum likelihood principle. In B. N. Petrov and F. Csaki (Eds.), Proceedings of the Second International Symposium on Information Theory Budapest, Akademiai Kiado, pp. 267-281.
Schwarz, G. E. (1978). Estimating the dimension of a model. Annals of Statistics 6 (2), 461-464.
BiCop()
,
BiCopEst()
## compare models
data(daxreturns)
comp <- BiCopEstList(daxreturns[, 1], daxreturns[, 4])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.