dataCPI;                                                                                                                       

inputx@@;                                                                                                                             

t=_n_;                                                                                                                                 

cards;                                                                                                                                 

100                                                                                                                                    

101.9                                                                                                                                 

109.5                                                                                                                                 

112.2                                                                                                                                 

114.4                                                                                                                                 

116.7                                                                                                                                   

119.9                                                                                                                                 

131.1                                                                                                                                   

139.6                                                                                                                                 

149.8                                                                                                                                 

177.9                                                                                                                                 

209.9                                                                                                                                 

216.4                                                                                                                                 

223.8                                                                                                                                 

238.1                                                                                                                                 

273.1                                                                                                                                 

339                                                                                                                                    

396.9                                                                                                                                 

429.9                                                                                                                                   

441.9                                                                                                                                 

438.4                                                                                                                                   

432.2                                                                                                                                 

434                                                                                                                                    

437                                                                                                                                    

433.5                                                                                                                                 

438.7                                                                                                                                 

455.8                                                                                                                                 

464                                                                                                                                    

471                                                                                                                                    

493.6                                                                                                                                 

522.7                                                                                                                                 

519                                                                                                                                    

536.1                                                                                                                                 

565                                                                                                                                    

579.7                                                                                                                                 

;                                                                                                                                       

procgplot data=CPI;                                                                                                            

plotx*t=1;                                                                                                                           

symbol1c=black i=join v=star;                                                                                                         

procautoreg data=CPI;                                                                                                         

modelx=t/ nlag=5 backstep method=ml;                                                                                                  

outputout=out p=xp pm=trend;                                                                                                         

procgplot data=out;                                                                                                                  

plotx*t=2 xp*t=3 trend*t=4/overlay;                                                                                                   

symbol2v=star i=none c=black;                                                                                                         

symbol3v=none i=join c=red w=2 l=3;                                                                                                   

symbol4v=none i=join c=green w=2;