/* Lesson StatM21 1-4 */
 /*    File Name = StatM2101-4.sas   10/11/21   */

options nocenter linesize=78 pagesize=30;
options locale='en_US';
/* options locale='ja_JP'; */
proc printto print = 'StatM21/StatM2101-4-Results.txt' new;
ods listing gpath='StatM21/SAS_ODS15'; 

data stud21;
  infile 'StatM21/Q1_StatM01b_a.csv'
    firstobs=3 
    dlm=',' dsd
/*    missover truncover */
    encoding=sjis termstr=crlf 
;
  input No 
        a2 : $10. 
        g  : $50. 
        h1   $ 
        h2 
        h3 
        h4 
        h5 : $10. 
        h6 
        h7
;

label 
      No='Number'
      a2='学年'
      g ='Q3 のみならず Q4 も受講する予定ですか?'
      h1='性別'
      h2='身長'
      h3='体重'
      h4='胸囲'
      h5='自宅生/下宿生の別'
      h6='仕送り月額'
      h7='スマホの月額通信料'
;

/*
proc print data=stud21(obs=10);
run;
*/

proc freq data=stud21 order=freq;
  table a2 g;
run;

proc means data=stud21;
run;

proc freq data=stud21 order=freq;
  table h1 h5 h5*h1;
run;

proc chart data=stud21;
  hbar h2 / midpoints=140 to 190 by 5;
run;