# NOT RUN {
data(casement9596)
casement1995 <- data.frame(casement9596,
with(casement9596,
get_total_info(Tmax, Tmin, Tbase = 7, Lat, day)))
data(pvulg_budburst_parameters)
data(pvulg_weibull_parameters)
data(pvulg_lactin_parameters)
phen_model(Tmean = "Tmean",
thermal_units = "thermal_units",
chill_days = "chill_days",
day_length = "day_length",
bud_pars = pvulg_budburst_parameters,
weib_pars = pvulg_weibull_parameters,
lactin_pars = pvulg_lactin_parameters,
max_day_length = 14.92,
data = casement1995)
# }
Run the code above in your browser using DataLab