## An example of experimental data
my_data <- data.frame(time = 0:9,
logN = c(2, 2.1, 1.8, 2.5, 3.1, 3.4, 4, 4.5, 4.8, 4.7))
## We just need to pass the data and the model equation
make_guess_primary(my_data, "Logistic")
## We can use this together with fit_growth()
fit_growth(my_data,
list(primary = "Logistic"),
make_guess_primary(my_data, "Logistic"),
c()
)
## The parameters returned by the function are adapted to the model
make_guess_primary(my_data, "Baranyi")
## It can express mu in other logbases
make_guess_primary(my_data, "Baranyi", logbase_mu = exp(1)) # natural
make_guess_primary(my_data, "Baranyi", logbase_mu = 2) # base2
Run the code above in your browser using DataLab