/* Lesson 6-3 */
 /*    File Name = scat03.sas   11/15/96   */

data zenin;
  infile 'all.dat';
  input seibetsu $ shintyou taijyuu kyoui kozukai jitaku $ daigaku $;

proc print data=zenin(obs=10);
run;
proc means data=zenin;
run;
proc sort data=zenin;
  by seibetsu;
proc means data=zenin;
  var shintyou taijyuu;
  by seibetsu;
run;

proc plot data=zenin;
  plot shintyou*taijyuu;
  by seibetsu;
run;

proc plot data=zenin;
  plot shintyou*taijyuu;
  where seibetsu='F';
run;
proc plot data=zenin;
  plot shintyou*taijyuu;
  where seibetsu='M';
run;