# NOT RUN {
library(dplyr)
data(djanturb)
output_table <- hydro_events(
dataframe = djanturb,
q = discharge,
datetime = time,
window = 21
)
output_table %>%
filter(he == 2) %>%
TI(
ssc = discharge,
datetime = time
)
# }
Run the code above in your browser using DataLab