外因性リグレッサーを使用した ARIMA モデルに従って、ホールドアウト/バック テスト サンプルを作成する方法はありますか。最初の 50 個の観測値を使用して次のモデルを推定し、残りの 20 個の観測値でモデルのパフォーマンスを評価するとします。ここで、x 変数は 70 個の観測値すべてに対して事前に設定されています。最後に本当に欲しいのは、開発期間と検証/保留期間 (時系列のバック テストとも呼ばれます) の実際の値と適合値をプロットするグラフです。
library(TSA)
xreg <- cbind(GNP, Time_Scaled_CO) # two time series objects
fit_A <- arima(Charge_Off,order=c(1,1,0),xreg) # Charge_Off is another TS object
plot(Charge_Off,col="red")
lines(predict(fit_A, Data),col="green") #Data contains Charge_Off, GNP, Time_Scaled_CO