Accessor function to extract model fit

model_fit(object)

Arguments

object

a decon object

Value

$minpack.lm of the object

Examples

# NOT RUN {
data(juncus)
tmp <- process(juncus, init_mass = 18.96,
               temp = 'temp_C', mass_loss = 'mass_loss')
output <- deconvolve(tmp)
model_fit(output)
# }