Accessor function to extract model fit

Model(object)

Arguments

object

a decon object

Value

$minpack.lm of the object

Examples

data(juncus) munge <- process(juncus, 'temp_C', 'mass_loss', 18.96, temp_type = 'C') output <- deconvolve(munge) Model(output)
#> Nonlinear regression model #> model: deriv ~ fs_mixture(temp_C, h1, s1, p1, w1, h2, s2, p2, w2, h3, s3, p3, w3) #> data: dataframe #> h1 s1 p1 w1 h2 s2 p2 w2 #> 3.944e-03 1.258e-01 2.662e+02 5.106e+01 5.793e-03 1.344e-02 3.173e+02 2.866e+01 #> h3 s3 p3 w3 #> 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