r - Rstudioでホルトウィンターズ予測から数値を取得する方法

Question

タイトルが言ったように、Holt-winters 予報から正確な数値を取得する方法はありますか? たとえば、次のような時系列オブジェクトがあるとします。

Date    Total  
6/1/2014    150  
7/1/2014    219  
8/1/2014    214  
9/1/2014    47  
10/1/2014   311  
11/1/2014   198  
12/1/2014   169  
1/1/2015    253  
2/1/2015    167  
3/1/2015    262  
4/1/2015    290  
5/1/2015    319  
6/1/2015    405  
7/1/2015    395  
8/1/2015    391  
9/1/2015    345  
10/1/2015   401  
11/1/2015   390  
12/1/2015   417  
1/1/2016    375  
2/1/2016    397  
3/1/2016    802  
4/1/2016    466  

変数 hp に格納した後、Holt Winters を使用して予測を行いました。

hp.ts <- ts(hp$Total, frequency = 12, start = c(2014,4))   
hp.ts.hw <- HoltWinters(hp.ts)   
library(forecast)   
hp.ts.hw.fc <- forecast.HoltWinters(hp.ts.hw, h = 5)   
plot(hp.ts.hw.fc)

しかし、私が知る必要があるのは、2016/05 年の合計が (予測的に) 正確にどうなるかということです。とにかく正確な値を取得する方法はありますか?

ところで、青（予報）の線と黒の線がつながっていないことに気付きました。それは正常ですか？または、コードを修正する必要がありますか?

読んでくれてありがとう。

Answer 1

図書館（予報）に電話しているのに、なぜぐるぐる回ったのかわかりません。以下に、質問に対する直接的な回答を示します。

hp.ts.hw <- hw(hp.ts)
hp.ts.hw.fc <- forecast(hp.ts.hw, h = 5)
plot(hp.ts.hw.fc)
hp.ts.hw.fc

         Point Forecast    Lo 80    Hi 80    Lo 95    Hi 95
Mar 2016       546.5311 448.2997 644.7624 396.2992 696.7630
Apr 2016       623.7030 525.4716 721.9344 473.4711 773.9349
May 2016       671.8989 573.6675 770.1303 521.6670 822.1309
Jun 2016       667.3722 569.1408 765.6036 517.1402 817.6041
Jul 2016       500.0710 401.8396 598.3024 349.8390 650.3030