DM "output; clear; log; clear";

OPTIONS PAGESIZE=54 LINESIZE=80 NODATE PAGENO=1;
goptions reset=all goutmode=replace;
goptions htitle=1.0 ftitle=simplex htext=1.0 ftext=simplex;

DATA BIG8;
 INPUT SCHOOL $1-14 GAMES RO_YDS RD_YDS PO_YDS PD_RAT TO_YDS TD_YDS SO SD TOM WINS;
CARDS;
COLORADO       11 291.5 114.2 203.8 125.2 495.3 343.7 36.2 19.2  0.55 10
IOWA STATE     11 178.0 272.8 137.1 137.1 315.1 460.7 17.5 33.0 -0.64  0
KANSAS         11 247.1 171.2 140.9 135.8 363.3 400.7 28.5 22.0  0.73  6
KANSAS STATE   11 125.6 167.5 237.6  94.3 363.3 312.5 27.7 14.2  1.18  9
MISSOURI       12 107.9 235.3 202.5 138.5 310.4 414.9 17.3 27.1  0.17  3.5
NEBRASKA       12 340.0  79.3 137.8  96.7 477.8 258.8 36.3 12.1  0.08 12
OKLAHOMA       11 182.2 148.5 173.9 107.5 356.1 295.7 19.8 21.6 -0.18  6
OKLAHOMA STATE 11 204.6 192.5 133.5 130.3 338.1 385.9 16.4 23.3 -0.45  3.5
;
Proc standard data=BIG8 mean=0 std=1 out=STDBIG8; 
run;
Data STDBIG8; set STDBIG8;
pi=3.14159265; inc=2*pi/100;
do t=-pi to pi by inc;
 f=GAMES/(sqrt(2))+RO_YDS*cos(t)+RD_YDS*sin(t)+PO_YDS*cos(2*t)+PD_RAT*sin(2*t)+TO_YDS*cos(3*t)+TD_YDS*sin(3*t)+SO*cos(4*t)+SD*sin(4*t)+TOM*cos(5*t)+WINS*sin(5*t);
output;
end; 
run;
proc gplot data=STDBIG8;
title1 'Problem 3.9 (a)';
title3 'Football Data from the BIG 8 Conference';
title5 'Andrews Plot';

legend1 label=('SCHOOL:') across=2;
plot f*t=SCHOOL / vaxis=-6 to 6 by 1 vm=0
                 haxis=-3.14,-1.57,0,1.57,3.14 hm=0;
symbol1 v=none i=join l=1 c=red   w=1;
symbol2 v=none i=join l=2 c=red   w=1;
symbol3 v=none i=join l=1 c=blue  w=1;
symbol4 v=none i=join l=2 c=blue  w=1;
symbol5 v=none i=join l=1 c=green w=1;
symbol6 v=none i=join l=2 c=green w=1;
symbol7 v=none i=join l=1 c=black w=1;
symbol8 v=none i=join l=2 c=black w=1;
run;
quit;