# Extreme level estimation for a given quantile's extreme level alpha_n
# obtained with 1-dimensional data simulated from an AR(1) with Student-t innovations
tsDist <- "studentT"
tsType <- "AR"
# parameter setting
corr <- 0.8
df <- 3
par <- c(corr, df)
# Big- small-blocks setting
bigBlock <- 65
smallBlock <- 15
# quantile's extreme level
alpha_n <- 0.999
# sample size
ndata <- 2500
# Simulates a sample from an AR(1) model with Student-t innovations
data <- rtimeseries(ndata, tsDist, tsType, par)
# expectile's extreme level estimation
tau1Hat <- estExtLevel(alpha_n, data, var=TRUE, k=150, bigBlock=bigBlock,
smallBlock=smallBlock)
tau1Hat
Run the code above in your browser using DataLab