# Derivation of the true tau-th expectile for the Pareto distribution
# via accurate simulation
# parameter value
par <- c(1, 0.3)
# Intermediate level (or sample tail probability 1-tau)
tau <- 0.99
trueExp <- expectiles(par, tau)
trueExp
# \donttest{
# tau-th expectile of the AR(1) with Student-t innovations
tsDist <- "studentT"
tsType <- "AR"
# Approximation via Monte Carlo methods
trueMethod <- "approx"
# parameter setting
corr <- 0.8
df <- 3
par <- c(corr, df)
# Intermediate level (or sample tail probability 1-tau)
tau <- 0.99
trueExp <- expectiles(par, tau, tsDist, tsType, trueMethod)
trueExp
# }
Run the code above in your browser using DataLab