/* mean31.sas */
 /*    File Name = mean31.sas   11/21/17   */
 /*      試験II欠席者を除外  */

 /*    Original File Name = mean30.sas   11/21/17   */
 /*    Original File Name = mean29Kai.sas   11/22/16   */
 /*    Original File Name = mean28_2jiU.sas   11/15/16   */
 /*                    Convert to UTF-8      */
 /*    Original File Name = mean27.sas   11/15/16   */
 /*    Original File Name = mean26.sas   11/15/16   */
 /*                    Convert to S-JIS      */
 /*    Original File Name = mean25S1.sas   11/27/15   */
 /*                    Convert to EUC      */
 /*    Original File Name = mean24.sas   11/12/15   */
 /*    Original File Name = mean23.sas   11/30/14   */
 /*    Original File Name = mean22.sas   11/27/13   */
 /*    Original File Name = mean21.sas   11/27/12   */
 /*    Original File Name = mean19.sas   11/19/12   */
 /*    Original File Name = mean18.sas   11/14/11   */
 /*    Original File Name = mean17.sas   11/20/10   */
 /*    Original File Name = mean16.sas   11/20/09   */
 /*    Original File Name = mean15.sas   11/19/08   */
 /*    Original File Name = mean14.sas   11/18/08   */
 /*    Original File Name = mean13.sas   10/31/06   */
 /*    Original File Name = mean12.sas   11/28/04   */
 /*    Original File Name = mean12.sas   11/28/04   for 2004 data  */
 /*                                         */

/*
職業=その他
学習歴＝その他 を外す
*/

options nocenter linesize=78 pagesize=9999;
options nocenter linesize=105 pagesize=9999;
options nocenter linesize=120 pagesize=9999;

proc printto log   = '/folders/myfolders/Foo/2017/SAS_log01.txt'
             print = '/folders/myfolders/Foo/2017/SAS_out01.txt' new;
run;

data Foo04ju;
  infile '/folders/myfolders/Foo/2017/JyukenMaster.txt' 
         firstobs=1
         truncover 
         lrecl=451; 

input
      id       $   7-11
      Cage     $ 140-141
      Csex     $ 142
      Csyoku   $ 293-294
      Cgaku_   $ 295-296
      Cboran   $ 297
      Choka    $ 298
      Sgr1       304-306
      Sgr2       312-314
      Sgr3       328-330
      Stotal     344-346
      SKij_to    352-354
      SKij_11    383-384
/* 2012年, 2011年は不要
      SKij_12    385-386
      SKij_13    387-388
      SKij_21    389-390
      SKij_22    391-392
*/

      CKij     $ 410
      Cketu1   $ 412
      Cketu2   $ 413
      Cketu3   $ 414
      Czennen  $ 430
      Ckyouju  $ 450
;

if Cketu1="K" then delete;
if Cketu2="K" then delete;
if Cketu3="K" then delete;

 /*      試験II欠席者を除外  */
if id="70576" then delete;

if Csyoku=.   then delete;
if Cgaku_=.    then delete;

  label id     ='受験番号'
        Csyoku ='職業コード'
        Cgaku_ ='学習歴コード'
        Cboran ='ボランティア有無'
        Choka  ='業務以外有無'
        Sgr1   ='試験1得点'
        Sgr2   ='試験2得点'
        Sgr3   ='試験3得点'   /* 試験3に関して 問題23(記述)加算せず */
        Stotal ='総合得点'
        Cketu1 ='欠席1'
        Cketu2 ='欠席2'
        Cketu3 ='欠席3'
        Czenne ='前年度受験'
;
run;

/* =============== */

/*
if Csyoku='01' then Vsyoku='大学院';
if Csyoku='02' then Vsyoku='大学/短大';
*/
/*
proc format;
  value Csyoku '01'='大学院' '02'='大学/短大';
run;
*/

title "*** H26年 Foo 本試験 ***";
proc print data=Foo04ju(obs=5);
run;

proc means data=Foo04ju maxdec=4 VARDEF=N;
/*
proc means data=Foo04ju maxdec=4 fw=8  MEAN STD MIN MAX;
  class ca;
*/
  var Sgr1 Sgr2 Sgr3 Stotal;
run;

proc means data=Foo04ju maxdec=4 VARDEF=N;
  class Csyoku;
  var Sgr1 Sgr2 Sgr3 Stotal;
run;

proc means data=Foo04ju maxdec=4 VARDEF=N;
  class Cgaku_;
  var Sgr1 Sgr2 Sgr3 Stotal;
run;

proc means data=Foo04ju maxdec=4 VARDEF=N;
  class Cboran;
  var Sgr1 Sgr2 Sgr3 Stotal;
run;

/*
proc corr data=Foo04ju ALPHA NOMISS NOCORR;
*/
proc corr data=Foo04ju ALPHA cov vardef=n;
  var Sgr1 Sgr2 Sgr3;
run;

proc corr data=Foo04ju ALPHA cov vardef=n;
  var Sgr1 Sgr2 Sgr3 Stotal;
run;

proc freq data=Foo04ju;
  table 
      Cage     
      Csex     
      Csyoku   
      Cgaku_   
      Cboran   
      Choka    
      Czennen  
      Ckyouju  
;
  table 
      Csyoku   *      Cgaku_   ;
;
run;