data t5_3;
sett5_1;
difcpi=dif(cpi);
time=_n_;
procgplotdata=t5_3;
plotCPI*time difcpi*time;
symbolv=starc=bluei=join;
run;
procarima;
identifyvar=cpi(1) nlag=10;
estimatep=1 ;
forecastlead=14id=time out=out;
procgplotdata=out;
plotcpi*time=1forecast*time=2 l95*time=3 u95*time=3/overlay;
symbol1c=blacki=joinv=star;
symbol2c=redi=joinv=none;
symbol3c=greeni=joinv=none;
run;