tmin <- "2021-01-01"
tmax <- "2021-04-10"
D <- 750
Dp <- c(750, 1000, 2000)
peak_values_list <- get_max_min_values(
psa_data,
tmin = tmin,
tmax = tmax,
Dt_max = TRUE
)
calculate_threshold_probs(
peak_values_list,
Dp = Dp,
Dt_max = TRUE
)
Run the code above in your browser using DataLab