/* Lesson 10-02 */
 /*    File Name = les1002.sas  12/21/17   */

options nocenter linesize=78 pagesize=30;
proc printto print = 'Kougi/les1002_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;
  var shintyou;
run;