# NOT RUN {
if(interactive()){
# Calculate GDD for durum wheat
data(durumDaily)
growth <- getGrowthPeriod(sitecode = durumDaily$site_code,
crop = 'Durum wheat', base = 0,
max = 35, gdd = TRUE)
# Get data frame with lengths of growth stages from list
# object returned
growth.lengths <- growth[[1]]
# Get data frame with phenotypic variables from list
# object returned
growth.pheno <- growth[[2]]
# Get data frame with GDD, cumulative GDD and climatic
# variables from list object returned (when gdd = TRUE)
growth.gdd <- growth[[3]]
}
# }
Run the code above in your browser using DataLab