Это окончательные уравнения, которые у меня есть в SUR:
eq1<-Pri_Cons_logDiff1~Income_WxE_logDiff2_lag3 + BLD_CB_Diff1_lag3
eq2<-Total_Inv_logDiff2~Govt_Exp_log_Diff2_lag3 + IPI_Diff2_lag3 + Exports_logDiff2_lag3
eq3<-Exports_logDiff2~EVI_Diff2_lag3 + IVI_Diff2_lag3
eq4<-Imports_logDiff2~Pri_Cons_logDiff1_lag3 + Total_Inv_logDiff2_lag3 + Exports_logDiff2_lag3
eq5<-Gov_Cons_logDiff2~Govt_rev_log_Diff2_lag3 + Govt_Exp_log_Diff2_lag3
#eq6<-Wage_mean_logDiff2~Employment_logDiff2_lag3+GDP_yoy_lag3
system<-list(eq1=eq1,eq2=eq2,eq3=eq3,eq4=eq4,eq5=eq5)
sur<- systemfit(system,method = "SUR")
summary(sur)
Применяя эту функцию SUR, мне трудно сделать следующий шаг вперед, чтобы сделать прогноз на 10 лет вперед? Есть ли способ сделать это?