# Flow History Demo:
eList <- Choptank_eList

plotFlowSingle(eList, istat = 7, qUnit = "thousandCfs")
plotSDLogQ(eList)
plotQTimeDaily(eList, qLower = 1, qUnit = 3)
plotFour(eList, qUnit = 3)
plotFourStats(eList, qUnit = 3)
