data(ngaruroro)
# To few points identified as peak flood discharge
recessionplot(ngaruroro, peaklevel = .5, start = 1991, end = 1991)
# To many
recessionplot(ngaruroro, peaklevel = .999, start = 1991, end = 1991)
# Good choice?
recessionplot(ngaruroro, peaklevel = .92, start = 1991, end = 1991)
# Getting peakdays for 1991
peak <- recessionplot(ngaruroro, peaklevel = .92, plot = FALSE, peakreturn = TRUE)
rain1991 <- subset(ngaruroro, subset = (hyear == 1991) & peak, select = c(day, month, year))
Run the code above in your browser using DataLab