# Get an annual maximum (AM) sample that looks to have a significant trend
am_21025 <- GetAM(21025)
# Plot the resulting AM as a bar plot. Then detrend and compare with another plot
plot(am_21025$Flow, type = "h", ylab = "Discharge (m^3/s)")
am_detrend <- DeTrend(am_21025$Flow)
plot(am_detrend, type = "h", ylab = "Discharge (m^3/s)")
Run the code above in your browser using DataLab