时间序列分析上机操作题-CAL-FENGHAI-(2020YEAR-YICAI)_JINGBIAN
（2）选择适当模型拟合该序列的发展。
（3）绘制该序列拟合及未来5年预测序列图。
针对问题一：将以下程序输入SAS编辑窗口，然后运行后可得图1. data example3_1;
input x@@;
time=_n_;
cards;
29
49
67
48
64 71
170 60
;
proc gplot data=example3_1;
plot x*time=1;
symbol1c=red I=join v=star;
run;
图1 该序列的时序图
由图1可读出：除图中170和这两个异常数据外，该时序图显示澳大利亚季度常住人口变动一般在在60附近随机波动，没有明显的趋势或周期，基本可视为平稳序列。
再接着输入以下程序运行后可输出五方面的信息。具体见表1-表5.
proc arima data= example3_1;
identify Var=x nlag=8;
run;
表1 分析变量的描述性统计
从表1可读出分析变量的名称、该序列的均值；标准差及观察值的个数（样本容量）。
表2 样本自相关图
由表2可知：样本自相图延迟3阶之后，自相关系数都落入2倍标准差范围以内，而且自相关系数向零衰减的速度非常快，故可以认为该序列平稳。
表3 样本自相关系数
该图从左到右输出的信息分别为：延迟阶数、逆自相关系数值和逆自相关图。
表4 样本偏自相关图
该图从左到右输出信息是：延迟阶数、偏自相关系数值和偏自相关图。
表5 纯随机性检验结果
由上表可知在延迟阶数为6阶时，LB检验统计量的P值很小，所以可以断定该序列属于非白噪声序列。
针对问题二：将IDENTIFY命令中增加一个可选命令MINIC，运行以下程序可得到表6.
表6 IDENTIFY命令输出的最小信息量结果
通过上表可知：在自相关延迟阶数小于等于5，移动平均延迟阶数也小于等于5的所有ARMA（p,q）模型中，BIC信息量相对最小的是ARMA(1，3)模型。
进行参数估计，输入以下命令，运行可得到表7—表10
estimate p=1q=3;
run;
表7 ESTIMATE命令输出的位置参数估计结果
表8 ESTIMATE命令输出的拟合统计量的值
表9 ESTIMATE命令输出的系数相关阵
表10 ESTIMATE命令输出的残差自相关检验结果
拟合模型的具体形式如表11所示。
表11 ESTIMATE命令输出的拟合模型形式
针对问题三：对拟合好的模型进行短期预测。输入以下命令，运行可得表12和图2.
forecast lead=5id=time out=results;
run;
proc gplot data=results;
plot x*time=1 forecast*time=2 l95*time=3 u95*time=3/overlay;
symbol1c=black i=none v=star;
symbol2c=red i=join v=none;
symbol3c=green i=join v=none l=32;
run;
表12 forecast命令输出的预测结果
图2 拟合效果图
5416755196563005748258796602666146562828 6465365994672076620765859672956917270499 7253874542763687853480671829928522987177 8921190859924209371794974962599754298705 100072101654103008104357105851107507109300111026 112704114333115823117171118517119850121121122389 123626124761125786126743127627128453129227129988 130756131448132129132802
采用SAS软件运行下列程序：
data example5_1;
input x@@;
t=_n_;
cards;
54167 55196 56300 57482 58796 60266 61465 62828
64653 65994 67207 66207 65859 67295 69172 70499
72538 74542 76368 78534 80671 82992 85229 87177
89211 90859 92420 93717 94974 96259 97542 98705
100072 101654 103008 104357 105851 107507 109300 111026
112704 114333 115823 117171 118517 119850 121121 122389
123626 124761 125786 126743 127627 128453 129227 129988
130756 131448 132129 132802
;
proc gplot;
plot x*t=1;
symbol1i=join v=none c=blavk;
run;
