if (FALSE) {
# Example usage
rain_events <- eventPOT(dataLoch, threshold = 1, min.diff = 1)
flow_events <- eventMaxima(dataBassRiver, delta.y = 200, delta.x = 1, threshold = 0)
paired_events <- pairEvents(rain_events, flow_events, lag = 5, type = 1)
corrected_events <- postCorrection(paired_events, method = "remove duplicates")
}
Run the code above in your browser using DataLab