# NOT RUN {
library(EGRET)
eList <- Choptank_eList
year1 <- 1985
year2 <- 2009
# }
# NOT RUN {
pairOut_2 <- runPairs(eList, year1, year2, windowSide = 7)
boot_pair_out <- runPairsBoot(eList, pairOut_2)
plotHistogramTrend(eList, boot_pair_out, caseSetUp = NA)
# }
Run the code above in your browser using DataLab