/* Lesson 6-1 */
 /*    File Name = les0601.sas   05/24/00   */

options linesize=72 pagesize=20;

data gakusei;
  infile 'waseda01.prn';
  input sex $ shintyou taijyuu kyoui jitaku $ kodukai;

proc print data=gakusei(obs=5);
run;
proc means data=gakusei;
run;
proc chart data=gakusei;
  hbar shintyou taijyuu;
  vbar shintyou taijyuu;
run;
proc plot data=gakusei;
  plot shintyou*taijyuu;
  plot taijyuu*shintyou;
run;

proc chart data=gakusei;
  hbar shintyou / midpoints=140 to 190 by 5;
  hbar taijyuu / midpoints=40 to 100 by 5;
  hbar kodukai / midpoints=0 to 200000 by 10000;

  vbar shintyou / midpoints=140 to 190 by 5;
  vbar taijyuu / midpoints=40 to 100 by 5;
  vbar kodukai / midpoints=0 to 200000 by 10000;

  hbar shintyou / midpoints=140 to 190 by 10 axis=0 5 10 15;
  hbar taijyuu / midpoints=40 to 100 by 10 axis=0 3 6 9 12 15;
  hbar kodukai / midpoints=0 to 200000 by 20000 axis=0 to 12 by 2;
run;
proc plot data=gakusei;
  plot shintyou*taijyuu / vaxis=140 to 190 by 10 haxis=40 to 100 by 20;
run;