library(ReturnCurves)
data(airdata)
n <- dim(airdata)[1]
prob <- 10/n
margdata <- margtransf(airdata)
retcurve <- rc_est(margdata = margdata, p = prob, method = "hill")
plot(retcurve)
# To see the the S4 object's slots
str(retcurve)
# To access the return curve estimation
retcurve@rc
# If constrained = T, the MLE estimates for the conditional extremes model
# can be accessed as
retcurve@interval
Run the code above in your browser using DataLab