data("aphid")
fitted_tpcs_aphid <- fit_devmodels(temp = aphid$temperature,
dev_rate = aphid$rate_value,
model_name = c("lactin2", "briere2", "ratkowsky")
)
get_fitted_model(fitted_tpcs_aphid, "briere2")
Run the code above in your browser using DataLab