/* Lesson 10-1 */
 /*    File Name = anke08.sas   06/26/97   */

options linesize=72 pagesize=24;

data gakusei;
  infile 'taikaku.dat';
  input seibetsu $ shintyou taijyuu kyoui;

proc format;
  value clshin low-<150='   -149'
               150-<160='150-159'
               160-<170='160-169'
               170-high='170-   '
               other   ='missing';
run;

proc print data=gakusei(obs=10);
run;
proc tabulate data=gakusei;                        
  class shintyou seibetsu;                       
  var taijyuu;                                   
  tables taijyuu*(n mean std),shintyou*seibetsu; 
  format shintyou clshin.;                       
run;