library(EGRET)
eList <- Choptank_eList
eBoot <- Choptank_eBoot
caseSetUp <- Choptank_caseSetUp
plotHistogramTrend(eList, eBoot, caseSetUp, flux=FALSE)
caseSetUp <- trendSetUp(eList)
eBoot <- wBT(eList,caseSetUp)
plotHistogramTrend(eList, eBoot, caseSetUp,
flux=FALSE, xSeq = seq(-20,60,5))
plotHistogramTrend(eList, eBoot, caseSetUp,
flux=TRUE, xSeq = seq(-20,60,5))Run the code above in your browser using DataLab