Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
order.by = time_index) TC_ts %>% diff() %>% ggtsdisplay(main="") TC_ts %>% ggtsdisplay(main="") TC_ts_diff <-TC_ts %>% diff() fit0 <- auto.arima(TC_ts_diff) fc0 <- forecast(fit0,h=24*7);plot(fc0) pp<-data.table(period=1/p$freq, spec=p$spec)[order(-spec)][1:10];pp period spec 1: 24.015009 2345808.7