# NOT RUN {
eList <- Choptank_eList
# Water year:
plotConcPred(eList)
plotConcPred(eList, logScale=TRUE)
# Graphs consisting of Jun-Aug
eList <- setPA(eList, paStart=6,paLong=3)
plotConcPred(eList, usgsStyle=TRUE)
# }
Run the code above in your browser using DataLab