/* Lesson 02-0 */
 /*    File Name = waseda02.sas   04/18/02   */

options linesize=72 pagesize=20;

data gakusei;
  infile 'waseda02.prn' firstobs=2;
  input no sex $ shintyou taijyuu kyoui 
        jitaku $ kodukai
        phone $ fee
;

proc print data=gakusei(obs=10);
run;
proc means data=gakusei;
  var shintyou taijyuu kyoui kodukai fee;
run;
proc freq data=gakusei;
  table sex jitaku phone;
run;
proc plot data=gakusei;
  plot taijyuu*shintyou;
  plot shintyou*taijyuu;
run;