Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
sin(2*pi*day/9)+cos(2*pi*day/9)+ sin(2*pi*day/100)+cos(2*pi*day/100), data=TC_df_wave2) TC_df_wave2$fitted<-fitted(fit, TC_df_wave2) ggplot2::ggplot() + geom_point(data=TC_df_wave2, aes(x = newdate, y = value), color='black', size=1) + geom_line(data=TC_df_wave2, aes(x = newdate, y = fitted),