## Not run:
# DATA <- bootTimeInference:::ret.hedge
# opt <- blockSizeCalibrate(DATA, b_vec = c(1,2,4,6,8,10), K = 5000)
# bootTimeInference(DATA, b = opt$b.optimal, M = 4999)
# ## End(Not run)
DATA <- bootTimeInference:::ret.hedge
# small example, please choose an appropiate K (see vignette)
opt <- blockSizeCalibrate(DATA, b_vec = c(1,2,4,6), K = 10)
bootTimeInference(DATA, b = opt$b.optimal, M = 4999)
Run the code above in your browser using DataLab