/* mean52b.sas */
 /*    File Name = mean52b.sas   11/30/20   */

 /*    Original File Name = mean52.sas   11/29/20   */
 /*    Original File Name = mean51.sas   10/13/20   */
 /*      新フォーマット対応  on  10/13/20 */
 /*    Original File Name = mean45.sas   11/25/19   */
 /*    Original File Name = mean44.sas   11/23/19   */
 /*    Original File Name = mean43.sas   11/22/19   */
 /*    Original File Name = mean42.sas   11/16/19   */
 /*    Original File Name = mean41.sas   11/17/18   */
 /*    Original File File Name = mean32.sas   11/17/18   */
 /*    Original File 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  */
 /*                                         */

/* 作成すべき資料とその番号: 番号が保存ファイルのファイル名になっている
3. 平均点、標準偏差、相関係数  <=== 本プログラムはここを担当
4. 信頼性係数 (α係数)         <=== 本プログラムはここを担当
5. 大問別平均得点率グラフ
6. 受験者属性別分析
 6a. 大問得点率集計 (職業コード別)
 6b. 大問得点率集計 (学習歴コード別)
 6c. 大問得点率集計 (教育歴コード別)
 6d. 設問解答率集計 (職業コード別) 
 6e. 設問解答率集計 (学習歴コード別) 
 6f. 設問解答率集計 (教育歴コード別)
 6g. 記述問題集計   (大問得点率／設問解答率、
                   職業コード別／学習歴コード別／教育歴コード別)
*/

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

options nocenter linesize=105 pagesize=9999;
options nocenter linesize=120 pagesize=9999;
options nocenter linesize=78 pagesize=9999;
options locale='en';

proc printto log   = '/folders/myfolders/AruShiken/2020/2次集計/mean52b_log01.txt'
             print = '/folders/myfolders/AruShiken/2020/2次集計/mean52b_out01.txt' new;
run;

data AruShiken04ju;
  infile '/folders/myfolders/AruShiken/2020/2次集計/2ji/JyukenMaster.txt' 
         firstobs=1
         truncover 
         lrecl=502; 

input
      id       $   7-11
      Cage     $ 140-141
      Csex     $ 142
      Csyoku   $ 344-345
      Cgaku_   $ 346-347
      Cmoku    $ 348-349
      Choka    $ 350
      Sgr1       356-358
      Sgr2       364-366
      Sgr3       380-382
      Stotal     396-398
      SKij_to    404-406
      SKij_11    435-436
/* 2012年, 2011年は不要
      SKij_12    437-438
      SKij_13    439-440
      SKij_21    441-442
      SKij_22    443-444
*/

      CKij     $ 462
      Cketu1   $ 464
      Cketu2   $ 465
      Cketu3   $ 466
      Czennen  $ 482
      Ckyouju  $ 502
;

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

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

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

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

/* ===== BasicStat用 ========== */

title "*** R2年 AruShiken 本試験 ***";
proc print data=AruShiken04ju(obs=5);
run;

ods output summary=SUM3;
proc means data=AruShiken04ju VARDEF=N  N MEAN STDDEV  STACKODS;
  var Sgr1 Sgr2 Sgr3 Stotal;
run;
ods output close;
PROC EXPORT DATA=SUM3
            OUTFILE= "/folders/myfolders/AruShiken/2020/2次集計/mean52b_Sum3.csv"
            DBMS=CSV REPLACE;
RUN;

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

proc freq data=AruShiken04ju;
  table Csyoku Cgaku_ Ckyouju;
run;