## Example 1: Two-steps fitting-------------------------------------------------
data(example_coupled_twosteps)
guess <- make_guess_coupled(example_coupled_twosteps)
show_guess_coupled(example_coupled_twosteps, guess)
my_fit <- fit_coupled_growth(example_coupled_twosteps,
start = guess,
mode = "two_steps")
print(my_fit)
coef(my_fit)
summary(my_fit)
plot(my_fit)
## Example 2: One-step fitting--------------------------------------------------
data("example_coupled_onestep")
guess <- make_guess_coupled(example_coupled_onestep, mode = "one_step")
show_guess_coupled(example_coupled_onestep,
guess,
"one_step")
my_fit <- fit_coupled_growth(example_coupled_onestep,
start = guess,
mode = "one_step")
print(my_fit)
coef(my_fit)
summary(my_fit)
plot(my_fit)
Run the code above in your browser using DataLab