Select hydrologic years
Usage
select_hydrologic_years(atm = prepare_atmosphere_data())
Examples
atm <- prepare_atmosphere_data()
atm_selected <- select_hydrologic_years(atm)
head(atm_selected)
#> # A tibble: 6 × 6
#> date irrigation_area_sqm groundwater.mmPerDay clearwater.mmPerDay
#> <date> <dbl> <dbl> <dbl>
#> 1 2017-05-01 27000000 0.00765 1.05
#> 2 2017-05-02 27000000 0.00765 1.05
#> 3 2017-05-03 27000000 0.00765 1.05
#> 4 2017-05-04 27000000 0.00765 1.05
#> 5 2017-05-05 27000000 0.00765 1.05
#> 6 2017-05-06 27000000 0.00765 1.05
#> # ℹ 2 more variables: rain_mm <dbl>, evapo_p_mean_mm <dbl>
tail(atm_selected)
#> # A tibble: 6 × 6
#> date irrigation_area_sqm groundwater.mmPerDay clearwater.mmPerDay
#> <date> <dbl> <dbl> <dbl>
#> 1 2023-10-26 27000000 0 0.838
#> 2 2023-10-27 27000000 0 0.838
#> 3 2023-10-28 27000000 0 0.838
#> 4 2023-10-29 27000000 0 0.838
#> 5 2023-10-30 27000000 0 0.838
#> 6 2023-10-31 27000000 0 0.838
#> # ℹ 2 more variables: rain_mm <dbl>, evapo_p_mean_mm <dbl>