Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
47 49 55 75 51 40 7 0 0 1 [991] 0 1 2 0 0 0 0 0 0 0 [ reached getOption("max.print") -- omitted 11584 entries ] p <- TSA::periodogram(TC_ts) Okay, so now we have our peak frequencies. Lets see which ones that are exactly. pp<-data.table(period=1/p$freq, spec=p$spec)[order(-spec)][1:10];pp period