# Plot a flow duration curve for the Thames at Kingston October 2000 to September 2015
FlowDurationCurve(ThamesPQ[, c(1, 3)])
# Add two additional flow lines for the plot
FlowDurationCurve(ThamesPQ[, c(1, 3)], AddQs = c(25, 200))
# Compare flows from the rather wet 2013 water year (rows 4749 and 5114) with the rest of the flow
FlowDurationCurve(
CompareCurves = list(
ThamesPQ$Q[-seq(4749, 5114)],
ThamesPQ$Q[4749:5114]
),
LegNames = c("All but 2013", "Water year 2013")
)
Run the code above in your browser using DataLab