/* Lesson 11-05 */
 /*    File Name = les1105.sas  12/21/21   */

options nocenter linesize=78 pagesize=30;
options locale='en_US';
/* options locale='ja_JP'; */
proc printto print = 'StatM21/les1105-Results.txt' new;

data dragons;
  infile 'StatM21/Dragons21.csv'
    firstobs=8 dlm=',' dsd missover 
    encoding=sjis termstr=crlf;
  input No $ Name : $24. Pos $ DoBY DoBM DoBD
        shintyou taijyuu tou $ da $ bikou $;

proc format;
  value cl_shin  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 format;
  value cl_tai  low-<60='   -60'
                 60-<65=' 60-65'
                 65-<70=' 65-70'
                 70-<75=' 70-75'
                 75-<80=' 75-80'
                 80-<85=' 80-85'
                 85-<90=' 85-90'
                 90-<95=' 90-95'
                 95-<100='95-100'
                 100-high='100-  '
                 other   ='missing';
run;

proc print data=dragons(obs=10);
run;

proc freq data=dragons;
  table taijyuu;
  table taijyuu*tou;
  format taijyuu cl_tai.;

  table shintyou;
  table shintyou*tou;
  format shintyou cl_shin.;
run;