Last chance! 50% off unlimited learning
Sale ends in
Cn(x, w)
x
whose
lines represent the points where the empirical copula of x
will be evaluated.numeric
containing the values of the empirical copula
of x
at the points specified in w
.Deheuvels, P. (1979). La fonction de dépendance empirique et ses propriétés: un test non paramétrique d'indépendance, Acad. Roy. Belg. Bull. Cl. Sci., 5th Ser. 65, 274--292.
Deheuvels, P. (1981). A non parametric test for independence, Publ. Inst. Statist. Univ. Paris. 26, 29--50.
pCopula
.n <- 20
gumbel.cop <- gumbelCopula(4)
u <- rCopula(n, gumbel.cop)
## points were to evaluate the empirical copula
w <- matrix(runif(2 * n), n, 2)
ec <- Cn(u, w)
## compare with true c.d.f.
mean(abs(pCopula(w, gumbel.cop) - ec))
## increase n to decrease the mean absolute error
## compare the empirical copula and the true copula c.d.f.
## on the diagonal of the unit square
curve(Cn(u, cbind(x, x)), 0, 1)
curve(pCopula(cbind(x, x), gumbel.cop), lty = 2, add = TRUE)
Run the code above in your browser using DataLab