Calculate Growing Degree Hours
calc_gdh.Rd
Calculate Growing Degree Hours
Examples
data = temp_df
#> Error in eval(expr, envir, enclos): object 'temp_df' not found
growing_degrees <- calc_gdh(data)
#> Error in data %>% group_by(FIELD_ID, CROP_NAME, CROP_SEASON, Date, Hour) %>% filter(Date >= seeding_date & Date <= harvest_date) %>% summarize(seeding_date = seeding_date, harvest_date = harvest_date, gdh = temp_combined_avg - Base_Fahrenheit, gdh = case_when(gdh < 0 ~ 0, temp_combined_avg > Upper_Fahrenheit ~ Upper_Fahrenheit - Base_Fahrenheit, TRUE ~ gdh), ) %>% rename(GDH_DATE = Date): could not find function "%>%"
print(growing_degrees)
#> Error in print(growing_degrees): object 'growing_degrees' not found