# NOT RUN {
eList <- Choptank_eList
# }
# NOT RUN {
# Automatic calculations based on windowSide=7
# four possible ways to do generalized flow normalization
#Option 1: Use all years for flow normalization.
seriesOut_1 <- runSeries(eList, windowSide = 0)
plotConcHist(seriesOut_1)
plotFluxHist(seriesOut_1)
# Option 2: Use sliding window throughout the whole flow normalization process.
# In each case it is a 15 year window (15 = 1 + 2*7)
seriesOut_2 <- runSeries(eList, windowSide = 7)
plotConcHist(seriesOut_2)
plotFluxHist(seriesOut_2)
# Option 3: Flow normalization is based on splitting the flow record at 1990-09-30
# But in years before the break it uses all flow data from before the break,
# and years after the break uses all flow data after the break
seriesOut_3 <- runSeries(eList,
windowSide = 0,
flowBreak = TRUE,
Q1EndDate = "1990-09-30")
plotConcHist(seriesOut_3)
plotFluxHist(seriesOut_3)
# Option 4: Flow normalization is based on splitting the flow record at 1990-09-30
# but before the break uses a 15 year window of years before the break
# after the break uses a 15 year window of years after the break
seriesOut_4 <- runSeries(eList,
windowSide = 7, flowBreak = TRUE,
Q1EndDate = "1990-09-30")
plotConcHist(seriesOut_4)
plotFluxHist(seriesOut_4)
# }
Run the code above in your browser using DataLab