library(ReturnCurves)
data(airdata)
n <- dim(airdata)[1]
# Marginal Transformation
margdata <- margtransf(airdata)
head(margdata@dataexp)
# Return Curves estimation
prob <- 1/n
retcurve <- rc_est(margdata = margdata, p = prob, method = "hill")
head(retcurve@rc)
# ADF estimation
lambda <- adf_est(margdata = margdata, method = "hill")
head(lambda@adf)
Run the code above in your browser using DataLab