/* Lesson 11-03 */
 /*    File Name = les1103.sas  01/08/19   */

options nocenter linesize=78 pagesize=30;
proc printto print = 'Kougi/les1103_results.txt' new;

data gakusei;
  infile 'Kougi/all08c_sjis.csv'
    firstobs=2 dlm=',' dsd missover 
    encoding=sjis termstr=crlf;
  input sex $ shintyou taijyuu kyoui 
        jitaku $ kodukai carryer $ tsuuwa;

proc format;
  value clshint  low-<150='   -150'
                 150-<155='150-155'
                 155-<160='155-160'
                 160-<165='160-165'
                 165-<170='165-170'
                 170-<175='170-175'
                 175-<180='175-180'
                 180-<185='180-185'
                 185-<190='185-190'
                 190-<195='190-195'
                 195-<200='195-200'
                 200-high='200-   '
run;

proc print data=gakusei(obs=5);
run;

proc means data=gakusei;
run;

proc univariate data=gakusei plot;
  var shintyou taijyuu;
run;

proc freq data=gakusei;
  table shintyou;
  table sex*shintyou;
  format shintyou clshint.;
run;