Hi everyone, in section 7.4 of FPP3 while comparing the performance of Fourier series in Time series data following code was shown in the video:-

fit_aus_cafe <- aus_cafe %>%

model(

K1 = TSLM(log(Turnover) ~ trend() + fourier(K = 1)),

K2 = TSLM(log(Turnover) ~ trend() + fourier(K = 2)),

K3 = TSLM(log(Turnover) ~ trend() + fourier(K = 3)),

K4 = TSLM(log(Turnover) ~ trend() + fourier(K = 4)),

K5 = TSLM(log(Turnover) ~ trend() + fourier(K = 5)),

K6 = TSLM(log(Turnover) ~ trend() + fourier(K = 6))

)

report(fit_aus_cafe)

Thereafter the plots were shown for different values of K. Can anyone help me with the code for those individual plots. I am able to get a combined plot for all K values.

Thanks