diff --git a/2_process/src/compare_to_historic.R b/2_process/src/compare_to_historic.R index 2618a48..6ff1c3e 100644 --- a/2_process/src/compare_to_historic.R +++ b/2_process/src/compare_to_historic.R @@ -21,11 +21,7 @@ compare_to_historic <- function(target_name, historic_quantile_fn, current_data_ if(nrow(site_quantiles) == 0) { message(sprintf("Quantiles not available for %s, returning NA.", site)) - } - - # Pull historic maximum and minimum values for site - min_hist_va <- min(site_quantiles$quantile_va) - max_hist_va <- max(site_quantiles$quantile_va) + } # Get percentiles for current values based on historical record site_current <- current_data %>%