/* Lesson 11-02 */
 /*    File Name = les1102.sas  01/08/19   */

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

data dragons;
  infile 'Kougi/Dragons18.csv'
    firstobs=6 dlm=',' dsd missover 
    encoding=sjis termstr=crlf;
  input No $ Name : $24. Pos $ DoBY DoBM DoBD
        shintyou taijyuu tou $ da $ bikou $;
        
proc format;
  value clshint  low-<170='   -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-   '
                 other   ='missing';
run;

proc print data=dragons(obs=20);
run;
proc means data=dragons;
run;
proc freq data=dragons;
  table DoBY DoBM tou da tou*da;
run;

proc chart data=dragons;
  hbar shintyou;
  vbar shintyou;
  hbar DoBY;
  vbar DoBY;
run;

proc univariate data=dragons plot;
  var shintyou DoBY;
run;

proc freq data=dragons;
  table shintyou;
  table shintyou*tou;
  format shintyou clshint.;
run;