Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
%>% as_tibble() %>% select(newdate, RecordType, n) %>% right_join(forecast_tbl, by = c("newdate", "RecordType")) %>% mutate(fc_qty = ifelse(fc_qty < 0, 0, fc_qty)) > forecast_tbl # A tibble: 1,332 x 5 newdate RecordType n .model fc_qty <date> <chr> <dbl> <chr> <dbl> 1 2022-10-01 E-mail call 10