Accessor function to extract model fit

model_fit(object)

Arguments

object

a decon object

Value

$minpack.lm of the object

Examples

# \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
# }