/* Lesson 11-02 */
 /*    File Name = les1102.sas  12/22/20   */

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

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

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

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

proc freq data=dragons;
  table DoBM tou da tou*da;
run;

proc freq data=dragons;
  table shintyou;
run;