dr.events(TS, Qdr = 0.2, WinSize = 30, IntEventDur = 10, EventDur = 15)create.ts containing a data.frame of flow
time seriesmqtdr.seas to calculate metrics for droughts
occurring in a user-defined season.
This function calls dr.pds which calls mqt.data(cania.sub.ts)
res1 <- dr.events(cania.sub.ts)
events <- res1$DroughtEvents
plot(events$Start, events$Duration, pch=19, ylab="Drought Duration (days)", xlab="")Run the code above in your browser using DataLab