# Select the appropiate columns from the example Dates_BT dataset
# and estimate wind scab risk for Big Top nectarine in Tudela using
# the example weather dataset Tudela_DW
library(magrittr)
library(dplyr)
library(lubridate)
Bloom <- Dates_BT %>%
select(Year, sbloom) %>%
rename(Fday=sbloom) %>%
filter(Year==2003)
Growth_BT <- Dates_BT %>% select(Year, Start_ing, End_ing, Harvest) %>%
filter(Year==2003)
Weather <- Tudela_DW %>%
filter (Tudela_DW$Year==2003)
WindRisk_BT <- wind_scab(Weather, Growth_BT)
Run the code above in your browser using DataLab