# \donttest{
Xt <- log(EXPENDITURES)
smoothing_options <- set_options(order_poly = 3)
est <- deseats(Xt, smoothing_options = smoothing_options)
trend_e <- trend(est) # Trend estimates
season_e <- season(est) # Seasonality estimates
trend_season_e <- fitted(est) # Trend + seasonality estimates
resid_e <- residuals(est) # Residuals (observ. - trend - seasonality)
ts_adj <- deseasonalize(est) # Seasonally adjusted series
ts_notrend <- detrend(est) # Detrended series
# }
Run the code above in your browser using DataLab