# Example with litfit object
fit <- fit_litter(
time = c(0,1,2,3,4,5,6),
mass.remaining = c(1,0.9,1.01,0.4,0.6,0.2,0.01),
model = 'neg.exp',
iters = 250
)
steady_state(fit)
# Example with specific model and parameter values
steady_state(pars = c(6,2), model = "weibull")
Run the code above in your browser using DataLab