proc print data=loan.practice_2name;
    title “���������ӷ����ı���”;
    run;

    /*����lc1��lc2��lc3����֤�����ͣ�����Ϊ֮ǰ�����ַ�ѹ���ģ��������lc1 lc2 lc3�������ӷ���1 �ϲ���һ�� ��Ϊ֤������
    ��������

    */

    /�ϲ����ݼ�����logistic�ع�/
    data loan.practice_2_FA;
    merge p1 p2 p3 p4 p5 p6 p7 p8 p9;
    keep
    FA_P1-FA_P9
    v_172_c v_100 v_2 v_20 v_19 v_50 v_31_c
    v_5;
    run;

    /�õ�c=0.7865 ������16������ ������ʵ������ӷ������úõ� ���Ե�����c/
    proc logistic data=loan.practice2_FA out=c1; /�߼��ع�_/
    model v_5(event=’1’)=
    FA_P1-FA_P9
    v_172_c v_100 v_2 v_20 v_19 v_50 v_31_c

    1. /*��bad_good=1�Ľ����߼��ع�ģ��*/

    /selection=stepwise /ȫģ�� ���в����� ������̫����/
    CLPARM=WALD
    RSQUARE /R^2Խ��Խ�� /
    lackfit
    stb
    outroc=roc1 /����ROC����/
    ;
    output out=pred p=phat /���Ԥ�����ݼ�pred/
    ;
    score out=c2
    ;
    run;

    /û�����ӷ���ǰ��c=0.7591 ԭ����81���Ա���/
    proc contents data=loan.practice_2(drop=v_5) out=aaaa noprint;run;
    proc sql noprint;select name into:dev separated by ‘ ‘ from aaaa;quit;

    proc logistic data=loan.practice2 out=c1; /�߼��ع�/
    model v_5(event=’1’)=&dev.
    /    ��badgood=1�Ľ����߼��ع�ģ��/
    /selection=stepwise /ȫģ�� ���в����� ������̫����/
    CLPARM=WALD
    RSQUARE /R^2Խ��Խ�� /
    lackfit
    stb
    outroc=roc1 /����ROC����/
    ;
    output out=pred p=phat /���Ԥ�����ݼ�pred/
    ;
    score out=c2
    ;
    run;