r - 遅れた従属変数を使用した R 予測

Question

lm 関数を使用して (Pt=a Pt-1 + b Xt + 各四半期のダミー変数) を当てはめ、標本データを当てはめます。n.ahead=12 予測を作成するには? 反復のためにダミーと Pt-1 をセットアップする方法を理解できませんでした。

Answer 1

たぶんこれが役立つかもしれません

#store your model
model<-your_model

#get the last pt observation
last<-dato[nrows(dato$pt), c('pt', 'age')]

years<-12/4

#create dummy
t1<-rep(c(1,0,0,0) , years)
t2<-rep(c(0,1,0,0) , years)
t3<-rep(c(0,0,1,0) , years)
t4<-rep(c(0,0,0,1) , years)

#create pt observation
pt<-c(last$pt, rep(NA, length(t1)-1 ))

df<-data.frame(t1=t1,t2=t2,t3=t3,t4=t4,lag_pt=pt, age=last$age)

df$predict<-NA

for (i in 1:nrow(df) )
{
df$predict[i]<-predict(model, data=df[i,])

if (i!=nrow(df))
{df$lag_pt[i+1]<-df$predict[i] }

}