Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
aes(x=newdate, y=fitted), col="red")+ theme_bw() fc0 <- forecast(fit0, xreg=cbind(f1,f2, f3,f4,f5,f6), h=24*7) plot(fc0) pred<-fc0%>%as.data.frame() pred$date<-format(date_decimal(as.numeric(row.names(as.data.frame(pred)))),"%d/%m/%Y %H:%M") Once again not bad. Could be better, but still not bad.