## We can use the example dataset included in the package
data("example_cardinal")
## We assign model equations to factors as usual
sec_model_names <- c(temperature = "Zwietering", pH = "fullRatkowsky")
## We can then calculate the initial guesses
make_guess_secondary(example_cardinal, sec_model_names)
## We can pass these parameters directly to fit_secondary_growth
fit_secondary_growth(example_cardinal,
make_guess_secondary(example_cardinal, sec_model_names),
c(),
sec_model_names)
Run the code above in your browser using DataLab