# NOT RUN {
eList <- EGRET::Choptank_eList
caseSetUp <- trendSetUp(eList,
year1 = 1985,
year2 = 2005,
nBoot = 50,
bootBreak = 39,
blockLength = 200)
# Very long-running function:
# }
# NOT RUN {
eBoot <- wBT(eList,caseSetUp)
# }
Run the code above in your browser using DataLab