dates <- as.Date(c("2014-12-04", "2014-10-30", "2015-11-12"))
wet_start_dates <- as.Date(c("2014-10-04", "2014-12-30", "2015-09-12"))
Seasons <- find_season(wet_start_dates, sampling_dates = dates)
#cut of date for the sampling year will be last day of June
Run the code above in your browser using DataLab