/���ַ�������Ƶ�ʷ���/
    libname loan “d:\2019xyt”;
    proc contents data=loan.clust_out(drop=v_1) out=i_v noprint;run;
    proc sql noprint;
    select name,count(*) into :charlist separated by ‘ ‘ ,:n from i_v
    where type=2;
    quit;
    proc sql noprint;
    create table char_list as
    select name from i_v
    where type=2;
    quit;

    proc freq data=loan.clust_out;
    table &charlist.;
    run;

    /�����쳣�Ľ������¸�ֵ ����/
    data loan.clustout;
    set loan.clust_out;
    if v_4=”2” then v_4=”F”;/_2�Ǵ���Ů��    /
    if v4=”1” then v_4=”M”;/_1�Ǵ�������/
    if v4=”X” then v_4=”NA”;/_X�Ǵ���ȱʧ/
    if v_174=”1” then v_174=”Y”;
    if v_175=”1” then v_175=”Y”;
    if v_175=”0” then v_175=”N”;
    if v_176=”1” then v_176=”Y”;
    if v_176=”0” then v_176=”N”;
    if v_177=”1” then v_177=”Y”;
    if v_177=”0” then v_177=”N”;
    run;