/* Lesson 10-01 */
 /*    File Name = les1001ja.sas  12/14/21   */

options nocenter linesize=78 pagesize=30;
/* options locale='en_US'; */
options locale='ja_JP';
proc printto print = 'StatM21/les1001ja-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 print data=dragons(obs=10);
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;
run;