# NOT RUN {
library(EGRET)
eList <- Choptank_eList
nBoot <- 100
blockLength <- 200
# }
# NOT RUN {
repAnnualResults <- vector(mode = "list", length = nBoot)
for(n in 1:nBoot){
annualResults <- bootAnnual(eList, blockLength, startSeed = n)
repAnnualResults[[n]] <- annualResults
}
CIAnnualResults <- ciBands(eList, repAnnualResults)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab