플롯을 사용하여 예측 선을 완료하는 방법은 무엇입니까?

Question

숫자로 예측할 수있는 R 스크립트를 작성했습니다.

# Load Forecast library 
library(forecast) 

# Load dataset 
bwi <- read.csv(file="C:/Users/nsoria/Downloads/AMS Globales/TEC_BWI.csv", header=TRUE, sep=';', dec=",") 

# Create time series starting in January 2015 
ts_bwi <- ts(bwi$BWI, frequency = 12, start = c(2015,1)) 

# Pull out the seasonal, trend, and irregular components from the time series 
model <- stl(ts_bwi, s.window = "periodic") 

# Predict the next 5 months of SLA 
pred <- forecast(model, h = 5) 

# Plot the results 
plot(pronostico) 

출력이 어떻게 든 예측 광고가 실제 값과 연결되지 않은 본

준다.

질문 : 마지막으로 알려진 값에서 첫 번째 예상 값까지 연결된 선을 어떻게 만들 수 있습니까?

01/01 편집 : 여기에 케이스를 재현하기 위해 CSV가있는 link이 있습니다.

Answer 1

당신은 SO에

pred_mod<-pred 
ts_real<-pred$x 
pred_mod$x<-ts(c(ts_real,pred$mean),frequency=12,start=c(2015,1)) 
plot(pred_mod) 

here the result