# NOT RUN {
eList <- Choptank_eList
# Water year:
plotFlowSingle(eList, 1)
# Graphs consisting of Jun-Aug
eList <- setPA(eList, paStart=6,paLong=3)
plotFlowSingle(eList, 1)
# }
# NOT RUN {
siteNumber <- '01010000'
StartDate <- ''
EndDate <- '2014-10-01'
Daily <- readNWISDaily(siteNumber, '00060', StartDate, EndDate)
INFO <- readNWISInfo(siteNumber, '00060', interactive = FALSE)
eList <- as.egret(INFO, Daily)
plotFlowSingle(eList, 5)
# }
Run the code above in your browser using DataLab