footCOP {copBasic} | R Documentation |
The Spearman Footrule of a Copula
Description
Compute the measure of association known as the Spearman Footrule (Nelsen et al., 2001, p. 281), which is defined as
where is the copula,
is the Fréchet–Hoeffding upper bound (
M
), and is a concordance function (
concordCOP
) (Nelsen, 2006, p. 158). The in terms of a single integration pass on the copula is
Note, Nelsen et al. (2001) use but that symbol is taken in copBasic for the Hoeffding Phi (
hoefCOP
), and Spearman Footrule does not seem to appear in Nelsen (2006).
Usage
footCOP(cop=NULL, para=NULL, by.concordance=FALSE, as.sample=FALSE, ...)
Arguments
cop |
A copula function; |
para |
Vector of parameters or other data structure, if needed, to pass to the copula; |
by.concordance |
Instead of using the single integral to compute |
as.sample |
A logical controlling whether an optional R |
... |
Additional arguments to pass, which are dispatched to the copula function |
Value
The value for is returned.
Note
Conceptually, the sample Spearman Footrule is a standardized sum of the absolute difference in the ranks (Genest et al., 2010). The sample is
where and
are the respective ranks of
and
and
is sample size. The sampling variance of
under assumption of independence between
and
is
Genest et al. (2010) present additional equations for estimation of the distribution variance for conditions of dependence based on copulas.
Author(s)
W.H. Asquith
References
Genest, C., Nešlehová, J., and Ghorbal, N.B., 2010, Spearman's footrule and Gini's gamma—A review with complements: Journal of Nonparametric Statistics, v. 22, no. 8, pp. 937–954.
Nelsen, R.B., 2006, An introduction to copulas: New York, Springer, 269 p.
Nelsen, R.B., Quesada-Molina, J.J., Rodríguez-Lallena, J.A., Úbeda-Flores, M., 2001, Distribution functions of copulas—A class of bivariate probability integral transforms: Statistics and Probability Letters, v. 54, no. 3, pp. 277–282.
See Also
blomCOP
, giniCOP
, hoefCOP
,
rhoCOP
, tauCOP
, wolfCOP
Examples
footCOP(cop=PSP) # 0.3177662
# footCOP(cop=PSP, by.concordance=TRUE) # 0.3178025
## Not run:
n <- 2000; UV <- simCOP(n=n, cop=GHcop, para=2.3, graphics=FALSE)
footCOP(para=UV, as.sample=TRUE) # 0.5594364 (sample version)
footCOP(cop=GHcop, para=2.3) # 0.5513380 (copula integration)
footCOP(cop=GHcop, para=2.3, by.concordance=TRUE) # 0.5513562 (concordance function)
# where the later issued warnings on the integration
## End(Not run)