/* Lesson 12-03 */
 /*    File Name = les1203.sas  01/25/18   */

options nocenter linesize=78 pagesize=30;
proc printto print = 'Kougi/les1203_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 $;

if tou=" " or da=" " or shintyou="." or taijyuu="." then delete; 

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

/* 利き腕ごとに(方法1) */
proc means data=dragons;
  where tou="右";
  var shintyou taijyuu; 
run;
proc means data=dragons;
  where tou="左";
  var shintyou taijyuu; 
run;

/* 利き腕ごとに(方法2) */
proc sort data=dragons;
  by tou;
run;
proc means data=dragons;
  var shintyou taijyuu; 
  by tou;
run;

/* 利き腕ごとにヒストグラム(方法1) */
proc chart data=dragons;
  hbar shintyou taijyuu;
  by tou;
run;

/* 利き腕ごとにヒストグラム(方法2) */
proc chart data=dragons;
  hbar shintyou taijyuu/group=tou;
run;