# Create one vector with start date (i.e. hand thinning) and a vector
# with harvest dates to test sunburn risk for several cultivars using.
library(magrittr)
library(dplyr)
library(lubridate)
Thinning_d <- 135
Harvest_d <- c(225,245,260)
Sunburn_risk <- sunburn(Tudela_DW,Thinning_d, Harvest_d)
Run the code above in your browser using DataLab