if (FALSE) { # interactive()
data("aphid")
fitted_tpcs <- fit_devmodels(temp = aphid$temperature,
dev_rate = aphid$rate_value,
model_name = "all")
plot_devmodels(temp = aphid$temperature,
dev_rate = aphid$rate_value,
fitted_parameters = fitted_tpcs,
species = "Brachycaudus swartzi",
life_stage = "Nymphs")
boot_tpcs <- predict_curves(temp = aphid$temperature,
dev_rate = aphid$rate_value,
fitted_parameters = fitted_tpcs,
model_name_2boot = c("lactin2", "briere2", "beta"),
propagate_uncertainty = TRUE,
n_boots_samples = 10)
print(boot_tpcs)
plot_uncertainties(temp = aphid$temperature,
dev_rate = aphid$rate_value,
bootstrap_tpcs = boot_tpcs,
species = "Brachycaudus schwartzi",
life_stage = "Nymphs")
}
Run the code above in your browser using DataLab