* The following code is also similar to what you need
   for assignment #1. Note that it will not run
   correctly unless there is a data file called
   'MEANS.DAT' on the diskette in the A: drive.
;
options pagesize=53;
options linesize=76;
data means;
 infile 'a:\means.dat';
 input meanvals @@;
 label meanvals='Mean Values';
proc sort;
 by meanvals;
data means2;
 set means;
 if meanvals>14.0 then delete;
title 'Mean Value Data';
proc print label;
 var meanvals;
data means3;
 set means;
 z=(meanvals-8.73)/2.34;
 label z='Standardized Mean Values';
 if z>-2.0 & z<2.0;
 drop meanvals;
title 'Standardized Mean Value Data - Within 2 SD''s';
proc print label;
 var z;
proc chart;
 hbar z / type=pct levels=9;
 vbar z / type=pct levels=9;
 run;
title 'Mean Value Data - Outliers Removed';
proc chart data=means2;
 hbar meanvals / type=pct levels=7;
 vbar meanvals / type=pct levels=7;
run;