## create a model, which starts out unfitted
mod <- mod_pois(injuries ~ age + sex + year,
data = nzl_injuries,
exposure = popn)
is_fitted(mod)
## calling 'fit' produces a fitted version
mod <- fit(mod)
is_fitted(mod)
## calling 'unfit' resets the model
mod <- unfit(mod)
is_fitted(mod)
Run the code above in your browser using DataLab