# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.