R语言基于ARMA-GARCH过程的VAR拟合和预测