library(flexFitR)
data(dt_potato)
mo_1 <- dt_potato |>
modeler(
x = DAP,
y = GLI,
grp = Plot,
fn = "fn_lin_pl_lin",
parameters = c(t1 = 10, t2 = 62, t3 = 90, k = 0.32, beta = -0.01),
subset = 195
)
plot(mo_1)
mo_2 <- update(mo_1)
plot(mo_2)
Run the code above in your browser using DataLab