Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
findfrequency(TC_df_wave2) dat <- recipe(value ~ newdate, data = TC_df_wave2) %>% step_harmonic(newdate, frequency = c(1/3,1/6,1/7,1/8,1/9,1/100), cycle_size = 1) %>% prep() %>% bake(new_data = NULL) fit <- lm(value ~ ., data = dat) TC_df_wave2$type<-"Observed" fits <- tibble( newdate =