wet_season_start_dates <- as.Date(c("2014-10-04", "2014-12-30", "2015-09-12"))
wet_season_end_dates <- find_wet_season_end(wet_season_start_dates)
#cut of date for the sampling year will be last day of June
Run the code above in your browser using DataLab