/* Lesson 10-02b */
 /*    File Name = les1002b.sas  01/11/18   */

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

data dragons;
  infile 'Kougi/Dragons.csv'
    firstobs=4 dlm=',' dsd missover encoding=sjis termstr=crlf;
  input No $ Name : $20. Pos $ DoBY DoBM DoBD  
        shintyou taijyuu tou $ da $ bikou $;
        
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;

ods listing;
ods graphics off;
proc univariate data=dragons plot;
  var shintyou DoBY;
run;