/* Lesson 6-4 */
 /*    File Name = scat04.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 plot data=zenin;
  plot shintyou*taijyuu=seibetsu/ vaxis=140 to 180 by 10
                                  haxis=30 to 90 by 10;
run;