# Computes ES assuming generalised Pareto for following parameters
Ra <- 5 * rnorm(100)
beta <- 1.2
zeta <- 1.6
threshold.prob <- .85
cl <- .99
GParetoVaR(Ra, beta, zeta, threshold.prob, cl)
Run the code above in your browser using DataLab