## True Pickands dependence functions
curve(Afun(gumbelCopula(4), x), 0, 1)
curve(Afun(gumbelCopula(2), x), add=TRUE)
curve(Afun(gumbelCopula(1.33), x), add=TRUE)
## CFG estimator
curve(Anfun(rcopula(gumbelCopula(4), 1000), x), lty=2, add=TRUE)
curve(Anfun(rcopula(gumbelCopula(2), 1000), x), lty=2, add=TRUE)
curve(Anfun(rcopula(gumbelCopula(1.33), 1000), x), lty=2, add=TRUE)
## Pickands estimator
curve(Anfun(rcopula(gumbelCopula(4), 1000), x, estimator="Pickands"),
lty=3, add=TRUE)
curve(Anfun(rcopula(gumbelCopula(2), 1000), x, estimator="Pickands"),
lty=3, add=TRUE)
curve(Anfun(rcopula(gumbelCopula(1.33), 1000), x, estimator="Pickands"),
lty=3, add=TRUE)
Run the code above in your browser using DataLab