Combine objects of class modeler

# S3 method for class 'modeler'
c(...)

library(flexFitR)
data(dt_potato)
mod_1 <- dt_potato |>
  modeler(
    x = DAP,
    y = Canopy,
    grp = Plot,
    fn = "fn_logistic",
    parameters = c(L = 100, k = 4, t0 = 40),
    subset = 1:2
  )
mod_2 <- dt_potato |>
  modeler(
    x = DAP,
    y = Canopy,
    grp = Plot,
    fn = "fn_linear_sat",
    parameters = c(t1 = 45, t2 = 80, k = 100),
    subset = 1:2
  )
mod <- c(mod_1, mod_2)
print(mod)
#> 
#> Call:
#> Canopy ~ fn_linear_sat(DAP, t1, t2, k) | uid (2) 
#> Canopy ~ fn_logistic(DAP, L, k, t0) | uid (2) 
#> 
#> Residuals (`Standardized`):
#>     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
#> -1.90574 -0.04114  0.00000 -0.02669  0.02561  2.23607 
#> 
#> Optimization Results `head()`:
#>  uid coefficient solution std.error t value Pr(>|t|)
#>    1           L   99.895    1.0399    96.1 2.32e-09
#>    1           k    0.215    0.0115    18.7 7.98e-06
#>    1          t0   50.683    0.4082   124.2 6.43e-10
#>    2           L   99.953    1.2476    80.1 5.74e-09
#> 
#> Metrics:
#>  Groups Timing Convergence Iterations
#>       2 5.9777        100% 516.5 (id)
#> 
plot(mod, id = 1:2)