# 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)
sens_casement1995 <- sensitivity(Tmax = casement9596$Tmax,
Tmin = casement9596$Tmin,
Tbase = 7,
lat = casement9596$Lat,
day = casement9596$day,
bud_pars = pvulg_budburst_parameters,
weib_pars = pvulg_weibull_parameters,
lactin_pars = pvulg_lactin_parameters,
max_day_length = 14.92,
pop_quantile = .5,
data = casement9596,
study_type = "lactin",
percent_variation = .1,
resolution = 100)
summary_sensitivity(sens_casement1995)
boxplot_sensitivity(sens_casement1995)
# }
Run the code above in your browser using DataLab