Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
df_tbl %>% filter_index(. ~ "2022-10-01") test_tbl <- df_tbl %>% filter_index("2022-10-01" ~ .) model_table <- train_tbl %>% model( naive_mod = NAIVE(n), snaive_mod = SNAIVE(n), drift_mod = RW(n ~ drift()), ses_mod = ETS(n ~ error("A") + trend("N") + season("N"), opt_crit = "mse"), hl_mod = ETS(n ~