Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
roll_avg_30(n)) %>% tidyr::pivot_longer(cols = c(n, rolling_avg_30)) %>% plot_time_series(newdate, value, .color_var = name, .facet_ncol = 2, .smooth = FALSE, .interactive = FALSE) df%>% dplyr::mutate(newdate = with(., ymd(Date) + hours(Hour)))%>% group_by(RecordType, newdate)%>% filter(!RecordType