/* mean45.sas */
 /*    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;

proc printto log   = '/folders/myfolders/JEfoo/2019/2次集計/mean45_log01.txt'
             print = '/folders/myfolders/JEfoo/2019/2次集計/mean45_out01.txt' new;
run;

data JEfoo04ju;
  infile '/folders/myfolders/JEfoo/2019/2次集計/2ji/JyukenMaster.txt' 
         firstobs=1
         truncover 
         lrecl=452; 

input
      id       $   7-11
      Cage     $ 140-141
      Csex     $ 142
      Csyoku   $ 294-295
      Cgaku_   $ 296-297
      Cboran   $ 298
      Choka    $ 299
      Sgr1       305-307
      Sgr2       313-315
      Sgr3       329-331
      Stotal     345-347
      SKij_to    353-355
      SKij_11    384-385
/* 2012年, 2011年は不要
      SKij_12    386-387
      SKij_13    388-389
      SKij_21    390-391
      SKij_22    392-393
*/

      CKij     $ 411
      Cketu1   $ 413
      Cketu2   $ 414
      Cketu3   $ 415
      Czennen  $ 431
      Ckyouju  $ 451
;

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_ ='学習歴コード'
        Cboran ='ボランティア有無'
        Choka  ='業務以外有無'
        Sgr1   ='試験1得点'
        Sgr2   ='試験2得点'
        Sgr3   ='試験3得点'   /* 試験3に関して 問題16(記述)加算せず */
        Stotal ='総合得点'     /* 試験3に関して 問題16(記述)加算せず */
        Cketu1 ='欠席1'
        Cketu2 ='欠席2'
        Cketu3 ='欠席3'
        Czenne ='前年度受験'
        Ckyouju='教授歴'
;
run;

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

title "*** R1年 JEfoo 本試験 ***";
proc print data=JEfoo04ju(obs=5);
run;

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

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

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