library(ReturnCurves)
data(airdata)
n <- dim(airdata)[1]
prob <- 10/n
margdata <- margtransf(airdata)
rc_orig <- rc_est(margdata = margdata, p = prob, method = "hill")
# \donttest{
# Set nboot = 50 for an illustrative example
# blocksize to account for temporal dependence
unc <- rc_unc(rc_orig, blocksize = 10)
# Plots the estimated Return Curve
plot(unc, which = "rc")
# Plots the median estimates of the Return Curve
plot(unc, which = "median")
# Plots the mean estimates of the Return Curve
plot(unc, which = "mean")
# Plots the estimated Return Curve and its the median and mean estimates
plot(unc, which = "all")
# To see the the S4 object's slots
str(unc)
# To access the list of vectors
unc@unc
# }
Run the code above in your browser using DataLab