/* Lesson 6-1 */
 /*    File Name = les0601.sas   05/23/02   */

options linesize=72 pagesize=20;

data gakusei;
  infile 'waseda02.prn';
  input sex $ shintyou taijyuu kyoui 
        jitaku $ kodukai carryer $ tsuuwa;

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=150 to 180 by 5;
  hbar taijyuu / midpoints=35 to 75 by 5;
  hbar kodukai / midpoints=0 to 300000 by 10000;

  vbar shintyou / midpoints=150 to 180 by 5;
  vbar taijyuu / midpoints=35 to 75 by 5;
  vbar kodukai / midpoints=0 to 300000 by 10000;

  hbar shintyou / midpoints=150 to 180 by 10 axis=0 5 10 15 20;
  hbar taijyuu / midpoints=35 to 75 by 10 axis=0 3 6 9 12 15;
  hbar kodukai / midpoints=0 to 300000 by 20000 axis=0 to 12 by 2;
run;
proc plot data=gakusei;
  plot shintyou*taijyuu / vaxis=150 to 180 by 10 haxis=30 to 80 by 10;
run;