분기 별 예측 r을 연간 단위로 변환

Question

분기 별 데이터를 기반으로 분기 별 예측을 생성하려면 library(forecast)을 사용하고 있습니다. 내 예측은 forecast 개체에 저장됩니다. 나는 그것들을 상응하는 연례 가치로 바꾸기위한 우아하고 단순한 방법을 찾고 모든 4 분의 4의 평균을 취하고있다.

forecast 패키지에는이 작업을 수행 할 수있는 옵션이 있습니까? 또는 분기 별 가치를 변환하는 방법이 있다면?

forecast 개체를 timeseries 개체로 변환하고 예측을 만드는 데 사용한 원래의 시계열과 병합했지만 작동하지 않았습니다. 아직도 당신에게 관심이지만, 여기에 앞서 최소 3 년 포함하기 위해 12 단계 (분기)를 포함하는 솔루션의 경우

library('quantmod') 
library('xts') 
library('forecast') 
library(zoo) 
library(tis) 
library(astsa) 
library(xts) 
GDP_SAAR<-getSymbols('A191RL1Q225SBEA',src='FRED', auto.assign=FALSE) 
GDP_SAAR <- ts(GDP_SAAR , start=c(1947, 2), end=c(2017, 3), frequency=4) 
fit <- auto.arima(GDP_SAAR) 
x<-forecast(fit,h=7) 

Answer 1

나도 몰라 : 아래

은 예입니다 집계 예측 :

GDP_SAAR<-getSymbols('A191RL1Q225SBEA',src='FRED', auto.assign=FALSE) 
fit <- auto.arima(GDP_SAAR) 
x<-forecast(fit,h=12) 
DateTime=as.Date(seq(from=tail(index(GDP_SAAR),1),by="quarter",length.out = length(x$mean)+1)) 
myresult=tibble(Forecasts=x$mean,DateTime=DateTime[-1])%>%mutate(DateTime=year(DateTime))%>% 
    group_by(DateTime)%>%summarize(Forecasts=sum(Forecasts,na.rm=T)) 
> myresult 
# A tibble: 3 x 2 
    DateTime Forecasts 
    <int>  <dbl> 
1  2018  10.5 
2  2019  10.6 
3  2020  10.6 

희망이