Accessor function to extract model fit
model_fit(object)
a decon object
$minpack.lm of the object
# \donttest{
data(juncus)
tmp <- process(juncus, init_mass = 18.96,
temp = 'temp_C', mass_loss = 'mass_loss')
output <- deconvolve(tmp)
model_fit(output)
#> Nonlinear regression model
#> model: deriv ~ fs_mixture(temp_C, height_1, skew_1, position_1, width_1, height_2, skew_2, position_2, width_2, height_3, skew_3, position_3, width_3)
#> data: dataframe
#> height_1 skew_1 position_1 width_1 height_2 skew_2 position_2
#> 3.944e-03 1.258e-01 2.662e+02 5.106e+01 5.793e-03 1.344e-02 3.173e+02
#> width_2 height_3 skew_3 position_3 width_3
#> 2.866e+01 1.163e-03 1.085e-01 3.300e+02 2.500e+02
#> residual sum-of-squares: 9.299e-06
#>
#> Number of iterations to convergence: 23
#> Achieved convergence tolerance: 1.49e-08
# }