library(flexFitR)
data(dt_potato)
mod <- dt_potato |>
modeler(
x = DAP,
y = Canopy,
grp = Plot,
fn = "fn_logistic",
parameters = c(a = 0.199, t0 = 47.7, k = 100),
subset = 1:2
)
print(mod)
mod_new <- subset(mod, id = 2)
print(mod_new)
Run the code above in your browser using DataLab