/* sco-fits-MH1.sas Daniel Brockman 090727 analyze models for XX scoring */
 
 
* ---- Execute on server ---- ;
rsubmit ;
 
options ls=80 mlogic mprint symbolgen ;
%let sasname = sco-mod-2.sas    ;     /* <<<<< name of this prog <<<<<<<<<<< */
 
%let homedir = /users/apps/bsa/xxdaniel ;
%let etcdir = &homedir./etc ;
%let wkdir = &homedir./Wk ;
%let sasbin = &homedir./sasbin ;
* %let libsco = &homedir./prj/libsco ;
 
%let pchome = C:\Wk ;
%let pcbin  = &pchome.\SAS\bin ;
%let pcauto = &pchome.\SAS\auto ;
 
* ---- auto macros ---- ;
options sasautos=(
  "&homedir./auto" /* &pcauto. */
) ;
 
* ---- pc resident macros ---- ;
* %include "&pcbin.\scomacs.sas" ;
 
* ---- libraries on server ---- ;
libname libsco '/users/apps/bsa/xxdaniel/prj/libsco' ;
 
* ---- database library definitions ---- ;
 
%include "&etcdir./qx.sas" ;
%include "&etcdir./libfiu.sas" ;
%include "&etcdir./lwrkfiu.sas" ;
%include "&etcdir./ltmpfiu.sas" ;
options ls=80 mlogic mprint symbolgen ;
 
* ---- other macros on server ---- ;
* %include "&edpdir./&devprod./edpdaily-mcr.sas" ;
* %include "&edpdir./&devprod./pmt_amt.sas" ;  /* test */
* %include "&edpdir./&devprod./getdsname.sas" ;  /* test */
* %include "&sasbin./scomacs.sas" ;
 
%put BEGIN sasname:&sasname ;          /* start the log */
 
* declare global variables ;
%global greturn greturn0 greturn1 greturn2 greturn3 greturn4 greturn5 ;
 
%tyd ;        * get todays date from an autocall routine ;
%let today = &greturn5 ;
 
* ---- other macros ---- ;
 
* ---- where the action is ---- ;
%let RSET=7 ;                                 * research set ;
%let modelname=MH1 ;
 
%let oset=sco_obs_set_&RSET._B ;              * observation set ;
%let ooset=lwrkfiu.&oset ;
%let xset=libsco.&oset._ext ;                 * extended observation set ;
%let xcor=&oset._cor ;                         * correlations ;
%let xrocmod=&oset._roc&modelname. ;
 
 
title " - - - - - - Research Set:&RSET prg:&sasname &today - - - - - - " ;
title2 "Logistic model &modelname for extended set &xset " ;
 
%let longdays=731 ;       * days to substitute for missing value ;
 
 
proc logistic data=&xset ;
   model SAR (desc) =
 
 
 
SCORE_V1
prior_sars_flg
RND_CSH_IN_FLG
OUT_OF_STATE_CSH_DEP_FLG
PXY1_CASHED_CHK_FLG
RND_CSH_OUT_FLG
subscore_2
prior_sars_DAYS
prior_sars_1_to_2_yrs
prior_sars_ct
prior_sars_ct_log
prior_sars_ct_logi
prior_sars_ct_sqr
prior_sars_ct_sqrt
prior_sars_days_iv
prior_sars_within_1_yr
RND_CSH_OUT_AMT
rnd_csh_out_amt_log
rnd_csh_out_amt_logi
RND_CSH_OUT_CT
LAST_CSH_IN_DAYS
LAST_CSH_OUT_DAYS
OUT_OF_STATE_CSH_DEP_AMT
OUT_OF_STATE_CSH_DEP_CT
OUT_OF_STATE_CSH_DEP_DAYS
PXY1_CASHED_CHK_CT
PXY1_CASHED_CHK_DAYS
RATING_ID
RND_CSH_IN_AMT
RND_CSH_IN_CT
last_csh_in_days_iv
last_csh_out_days_iv
out_of_state_csh_dep_amt_log
out_of_state_csh_dep_amt_logi
out_of_state_csh_dep_amt_sqrt
out_of_state_csh_dep_ct_log
out_of_state_csh_dep_ct_logi
out_of_state_csh_dep_ct_sqr
out_of_state_csh_dep_ct_sqrt
out_of_state_csh_dep_days_iv
out_of_state_csh_dep_days_log
out_of_state_csh_dep_days_logi
out_of_state_csh_dep_days_sqrt
pkg_N
pxy1_cashed_chk_ct_log
pxy1_cashed_chk_ct_logi
pxy1_cashed_chk_ct_sqr
pxy1_cashed_chk_ct_sqrt
pxy1_cashed_chk_days_iv
randy
rnd_csh_in_amt_log
rnd_csh_in_amt_logi
rnd_csh_in_amt_sqrt
rnd_csh_in_ct_sqr
rnd_csh_out_amt_sqrt
rnd_csh_out_ct_sqr
score_v1_log
score_v1_logi
score_v1_sqrt
should_be_zero
subscore_3
subscore_4
subscore_5
PACKAGE_ID
CREATED_DATE
MANRAT
rsch_set
 
 
     / selection = stepwise
       lackfit
       rsq
       outroc = &xrocmod.
       ;
 
run;
/* */
 
 
title2 "ROC for Logistic model &modelname for extended set &xset " ;
proc print data=&xrocmod. ;
run;
 
 
* ---- end execution on server ---- ;
endrsubmit;
 
 
* ---- end of program /* */ * ---- ! ;