Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
ymd(Date) + hms(QuarterHour)))%>% group_by(RecordType, newdate)%>% filter(!RecordType %in% c("AgentState", "Callback call"))%>% filter(CallDirection=="Incoming" & DoneInIVR==0 & AgentSequence==1)%>% count()%>% group_by(RecordType) %>% imputeTS::na_kalman(.) %>% mutate(rolling_avg_30 =