** Notes1.sas *** part 1 *****************; 
options ls=76 nodate; title "Time Series
Example 1";
data A; input date $ Y @@; cards;
Jan82 10 Apr82 30 Jul82 60 Oct82 40
Jan83 50 Feb83 20 Mar83 35
;
proc plot; plot Y*date/vpos=20 hpos=50;run;
data B;
Diff = '01jan80'D-'13nov1979'd;
dec1919='31dec1919'd;
dec19='31dec19'D; jan20='01jan20'D;
date1 = 18; date2=18; date3=18;
format date1 monyy.; format date2 date9.;
format date3 mmddyy.;
proc print; run;
data c; array date(3);
input x date7. ;
do i=1 to 3; twoi=2*i; date(i) =
intnx('month','01jan1912'd,twoi); end;
cards;
01feb60
;
proc print; run; 
proc print; format date1-date3 mmddyy.; run; 
data next; set a;
newdate= input(date, monyy.);
newdate2 = newdate; format newdate2 monyy.;
proc sort; by date; proc print; run; 
proc sort; by newdate2; proc print; run;

********* part 2 ***************; 
data last; input Y @@;
date=intnx('month','01dec83'd,_n_);
format date monyy.;
cards;
10 . . 12 18 40 . 13 18 . . . 10 . 10 10
;
proc print; run; 
proc expand data=last from=month to=month
out=out1;
convert Y = ynew; id date; run; 
data out1; merge out1 last; by date;  
proc plot data=out1; run; 
plot Y*date="*" Ynew*date = "-" /overlay
vpos=20 hpos=50; run; 
proc expand data=last from=month to=week
out=out2 outest=spline;
convert Y = Ywk; id date; run; 
proc print data=out2(obs=5);run; 
proc print data=spline(obs=5); run; 
data out2; merge out2 last; by date; proc
plot data=out2;
plot Y*date="*" Ywk*date = "-" /overlay
vpos=20 hpos=50;
run;

******* part 3 **********; 
data a; input y1-y5; cards;
12 11 16 19 999
data b; retain date;
if _n_=1 then do;
input month day year @@;
date=mdy(month,day,year); end;
input Y Z @@; if _n_>1 then date=date+1; format
date mmddyy.;
cards;
10 28 1987 16 1 19 2 15 3 18 4 21 4
25 3 28 2 26 1
;
proc print data=a; proc print data=b; run; 
proc transpose data=a out=aa; var y1-y5; run; 
data aa; set aa (rename=(col1=Y)); *drop _name_;
date=date+1; retain date '29oct1987'd;
proc print data=aa; run; 
data both; merge b aa; by date; proc print; run;

******* part 4 *************; 
data a; array X(11);
do i=1 to 11; X(i) = .88+i/50; end; output;
do i=1 to 11; x(i) =log(x(i)); end; output;
proc print noobs; var X1-X11; format X1-X11 5.2;
run;