GParetoES(Ra, beta, zeta, threshold.prob, cl)
McNeil, A., Extreme value theory for risk managers. Mimeo, ETHZ, 1999.
# Computes ES assuming generalised Pareto for following parameters
Ra <- 5 * rnorm(100)
beta <- 1.2
zeta <- 1.6
threshold.prob <- .85
cl <- .99
GParetoES(Ra, beta, zeta, threshold.prob, cl)
Run the code above in your browser using DataLab