eList <- Choptank_eList

plotConcTimeDaily(eList)
plotFluxTimeDaily(eList)
plotConcPred(eList)
plotFluxPred(eList)
plotResidPred(eList)
plotResidQ(eList)
plotResidTime(eList)
boxResidMonth(eList)
boxConcThree(eList)

#Require Daily + INFO:
plotConcHist(eList)
plotFluxHist(eList)

# Multi-line plots:
date1 <- "2000-09-01"
date2 <- "2005-09-01"
date3 <- "2009-09-01"
qBottom <- 100
qTop <- 5000
plotConcQSmooth(
  eList,
  date1,
  date2,
  date3,
  qBottom,
  qTop,
  concMax = 2,
  qUnit = 1
)
q1 <- 10
q2 <- 25
q3 <- 75
centerDate <- "07-01"
yearEnd <- 2009
yearStart <- 2000
plotConcTimeSmooth(eList, q1, q2, q3, centerDate, yearStart, yearEnd)

# Multi-plots:
fluxBiasMulti(eList)

#Contour plots:
clevel <- seq(0, 2, 0.5)
maxDiff <- 0.8
yearStart <- 2000
yearEnd <- 2010

plotContours(
  eList,
  yearStart,
  yearEnd,
  qBottom,
  qTop,
  contourLevels = clevel,
  qUnit = 1
)
plotDiffContours(eList, yearStart, yearEnd, qBottom, qTop, maxDiff, qUnit = 1)
