library(tsibble)
# Fit model to male deaths
fit_male <- as_tsibble(mdeaths) |>
model(FASSTER(value ~ trend(1) + fourier(12)))
# Refit to female deaths without re-estimating parameters
refit(fit_male, as_tsibble(fdeaths), reestimate = FALSE)
# Refit to female deaths with re-estimated parameters
refit(fit_male, as_tsibble(fdeaths), reestimate = TRUE)
Run the code above in your browser using DataLab