Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
filter(RecordType=="VOIP call")%>% mutate(diff = n-lag(n))%>% select(-n)%>% drop_na()%>% spec.pgram(., taper=0) spec.df <- data.frame(freq = raw.spec$freq, spec = raw.spec$spec) hours.period <- rev(c(1/6, 1/5, 1/4, 1/3, 0.5, 1, 3, 5, 10, 100)) hours.labels <- rev(c("1/6", "1/5", "1/4", "1/3",