回帰の予測を可視化する
素晴らしいです！これで、都市圏のハイエンド商品の予測ができました。さっそくこの予測を可視化しましょう。
この演習はコースの一部です
Rで学ぶ製品需要の予測
演習の手順
- 予測オブジェクト
pred_MET_hiを、与えられた日付インデックスを使ってxtsオブジェクトpred_MET_hi_xtsに変換します。 - 作成した新しいオブジェクトをプロットして予測を確認します。
- この予測から MAPE を計算します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Convert to an xts object
dates_valid <- seq(as.Date("2017-01-01"), length = 22, by = "weeks")
pred_MET_hi_xts <- xts(___, order.by = ___)
# Plot the forecast
plot(___)
# Calculate and print the MAPE
MET_hi_v <- bev_xts_valid[,"MET.hi"]
MAPE <- 100*mean(abs((pred_MET_hi_xts - MET_hi_v)/MET_hi_v))
print(___)