library(tsibble)
library(fasster)
# Fit initial model on training data
fit <- as_tsibble(head(USAccDeaths, -12)) |>
model(fasster = FASSTER(value ~ trend() + season("year")))
tidy(fit)
tail(fitted(fit), 20)
# Stream new data through the model
fit_updated <- fit |>
stream(as_tsibble(tail(USAccDeaths, 12)))
tidy(fit_updated)
tail(fitted(fit_updated), 20)
Run the code above in your browser using DataLab