决策树宏代码 - 经管之家

1901

收藏 2016-02-17

大家好，我现在想把下面这段代码写成宏的形式，为了防止以后变量不断修改很麻烦，谢谢！
SCOR <= 468.500
1.0<=SCOR <= 400
SCOR > 400
CRVDLQVALLBZLV0211 <= 100000
CRVDLQVALLBCCV0014 <= 6770.800
1.0 <=TZVDLQVALLBCCV0421 <= 6000
TZVDLQVALLBCCV0421 > 6000
CRVDLQVALLBCCV0234 <= 35
CRVSUMVINQV0201 <= 15
CRVSUMVINQV0201 <= 2
1.0<= CR_BTLA6M_allbac_0002 <= 29.500
   CR_BTLA6M_allbac_0002 > 29.500
CRVSUMVALLBZLV0013 > 2
CRVSUMVINQV0201 > 15
CRVDLQVALLBCCV0234 > 35
CRVDLQVALLBCCV0014 > 6770.800
CRVDLQVALLBZLV0211 > 100000
SCOR > 468.500
SCOR <= 563.500
SCOR <= 515.500
CRVDLQVACTBZLV0001 <= 0
CRVDLQVALLBZLV0111 <= 20000
CRVDLQVALLBCCV0301 <= 0
CRVSUMVINQV0010 <= 50
CRVSUMVACTBZLV0015 <= 7
CRVSUMVINQV0201 <= 17
CRVSUMVALLBZLV0011 <= 2
1.0<=CR_BTLA6M_allbac_0002 <= 30
CR_BTLA6M_allbac_0002 > 30
CRVSUMVALLBZLV0011 > 2
CRVSUMVINQV0201 > 17
CRVSUMVACTBZLV0015 > 7
CRVSUMVINQV0010 > 50
CRVDLQVALLBCCV0301 > 0
CRVDLQVALLBZLV0111 > 20000
CRVDLQVACTBZLV0001 > 0
SCOR > 515.500
1.0<=qbdjk <= 0
qbdjk > 0
CRVDLQVALLBZLV0401 <= 0
CRVNBNKVALLV9004 <= 6.550
CRVSUMVINQV0201 <= 12
1.0<= CR_BTLA6M_allbac_0002 <= 26.500
CR_BTLA6M_allbac_0002 > 26.500
CRVSUMVINQV0201 > 12
CRVNBNKVALLV9004 > 6.550
CRVDLQVALLBZLV0401 > 0
CRVDLQVALLBCCV0311 <= 3500
CRVNBNKVALLV9003 <= 5.900
CRVSUMVINQV0201 <= 12
1.0<= CR_BTLA6M_allbac_0002 <= 79.500
CR_BTLA6M_allbac_0002 > 79.500
CRVSUMVINQV0201 > 12
CRVNBNKVALLV9003 > 5.900
CRVDLQVALLBCCV0311 > 3500
SCOR > 563.500
SCOR <= 625.500
qbdjk <= 0
qbdjk > 0
CRvSUMvallbzlv0012 <= 5
CR_BTLA6M_allbac_0002 <= 50
CR_BTLA6M_allbac_0002 > 50
CRvSUMvallbzlv0012 > 5
SCOR > 625.500
SCOR <= 734.500
qbdjk <= 0
qbdjk > 0
CRvDLQvallbzlv0401 <= 0
CRvDLQvallbccv0401 <= 0
CRVSUMVALLBZLV0015 <= 45.500
1.0<=CR_BTLA6M_allbac_0002 <= 50
CR_BTLA6M_allbac_0002 > 50
CRVSUMVALLBZLV0015 > 45.500
CRVDLQVALLBCCV0401 > 0
1.0<=CRvDLQvallbccv0411 <= 44.500
CRvDLQvallbccv0411 > 44.500
CRvNBNKvALLv9002 <= 4.500
CR_BTLA6M_allbac_0002 <= 85.500
CR_BTLA6M_allbac_0002 > 85.500
CRvNBNKvALLv9002 > 4.500
CRvDLQvallbzlv0401 > 0
CRVDLQVACTBZLV0411 <= 5000
CRvNBNKvALLv9002 <= 4.500
CR_BTLA6M_allbac_0002 <= 99.500
CR_BTLA6M_allbac_0002 > 99.500
CRvNBNKvALLv9002 > 4.500
CRVDLQVACTBZLV0411 > 5000
SCOR > 734.500
qbdjk <= 0
qbdjk > 0
CRvDLQvallbzlv0401 <= 0
CRvDLQvallbccv0401 <= 0
CRvNBNKvALLv9005 <= 3.415
CRvNBNKvALLv9005 > 3.415
CRvDLQvallbccv0401 > 0
CRvDLQvallbzlv0401 > 0

data pd.tree;
set pd.xdtree1230_label_6_10;
if SCOR <= 468.500 then do;
if SCOR <= 400 then flag=0;
if SCOR > 400 then do;
if CRVDLQVALLBZLV0211 <= 100000 then do;
if CRVDLQVALLBCCV0014 <= 6770.800 then do;
if TZVDLQVALLBCCV0421 <= 6000 then flag=0;
   if TZVDLQVALLBCCV0421 > 6000 then do;
if CRVDLQVALLBCCV0234 <= 35 then do;
if CRVSUMVINQV0201 <= 15 then do;
if CRVSUMVINQV0201 <= 2 then do;
   if CR_BTLA6M_allbac_0002 <= 29.500 then flag=0;
   if CR_BTLA6M_allbac_0002 > 29.500  then flag=1;
                           end;
if CRVSUMVALLBZLV0013 > 2 then flag=0;
                        end;
if CRVSUMVINQV0201 > 15 then flag=1;
                  end;
   if CRVDLQVALLBCCV0234 > 35 then flag=0;
end;
   if CRVDLQVALLBCCV0014 > 6770.8    then flag=1;
        end;
if CRVDLQVALLBZLV0211 > 100000 then flag=0;
end;
end;
if SCOR > 468.500  then do;
SCOR <= 563.500
SCOR <= 515.500
CRVDLQVACTBZLV0001 <= 0
CRVDLQVALLBZLV0111 <= 20000
CRVDLQVALLBCCV0301 <= 0
CRVSUMVINQV0010 <= 50
CRVSUMVACTBZLV0015 <= 7
CRVSUMVINQV0201 <= 17
CRVSUMVALLBZLV0011 <= 2
1.0<=CR_BTLA6M_allbac_0002 <= 30
CR_BTLA6M_allbac_0002 > 30
CRVSUMVALLBZLV0011 > 2
CRVSUMVINQV0201 > 17
CRVSUMVACTBZLV0015 > 7
CRVSUMVINQV0010 > 50
CRVDLQVALLBCCV0301 > 0
CRVDLQVALLBZLV0111 > 20000
CRVDLQVACTBZLV0001 > 0
SCOR > 515.500
qbdjk <= 0
qbdjk > 0
CRVDLQVALLBZLV0401 <= 0
CRVNBNKVALLV9004 <= 6.550
CRVSUMVINQV0201 <= 12
1.0<= CR_BTLA6M_allbac_0002 <= 26.500
CR_BTLA6M_allbac_0002 > 26.500
CRVSUMVINQV0201 > 12
CRVNBNKVALLV9004 > 6.550
CRVDLQVALLBZLV0401 > 0
CRVDLQVALLBCCV0311 <= 3500
CRVNBNKVALLV9003 <= 5.900
CRVSUMVINQV0201 <= 12
1.0<= CR_BTLA6M_allbac_0002 <= 79.500
CR_BTLA6M_allbac_0002 > 79.500
CRVSUMVINQV0201 > 12
CRVNBNKVALLV9003 > 5.900
CRVDLQVALLBCCV0311 > 3500
SCOR > 563.500
SCOR <= 625.500
qbdjk <= 0
qbdjk > 0
CRvSUMvallbzlv0012 <= 5
CR_BTLA6M_allbac_0002 <= 50
CR_BTLA6M_allbac_0002 > 50
CRvSUMvallbzlv0012 > 5
SCOR > 625.500
SCOR <= 734.500
qbdjk <= 0
qbdjk > 0
CRvDLQvallbzlv0401 <= 0
CRvDLQvallbccv0401 <= 0
CRVSUMVALLBZLV0015 <= 45.500
1.0<=CR_BTLA6M_allbac_0002 <= 50
CR_BTLA6M_allbac_0002 > 50
CRVSUMVALLBZLV0015 > 45.500
CRVDLQVALLBCCV0401 > 0
1.0<=CRvDLQvallbccv0411 <= 44.500
CRvDLQvallbccv0411 > 44.500
CRvNBNKvALLv9002 <= 4.500
CR_BTLA6M_allbac_0002 <= 85.500
CR_BTLA6M_allbac_0002 > 85.500
CRvNBNKvALLv9002 > 4.500
CRvDLQvallbzlv0401 > 0
CRVDLQVACTBZLV0411 <= 5000
CRvNBNKvALLv9002 <= 4.500
CR_BTLA6M_allbac_0002 <= 99.500
CR_BTLA6M_allbac_0002 > 99.500
CRvNBNKvALLv9002 > 4.500
CRVDLQVACTBZLV0411 > 5000
SCOR > 734.500
qbdjk <= 0
qbdjk > 0
CRvDLQvallbzlv0401 <= 0
CRvDLQvallbccv0401 <= 0
CRvNBNKvALLv9005 <= 3.415
CRvNBNKvALLv9005 > 3.415
CRvDLQvallbccv0401 > 0
CRvDLQvallbzlv0401 > 0
run;

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

josephqyy

2016-2-17 14:12:06

咋用呢？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

erbangzhu

2016-2-17 14:36:39

好多，没看懂！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

tonic_zlj

2016-2-19 15:45:25

这个宏是最简单的了吧，只要替换下变量名
%macro test(Var1=,var2=...);
。。。。
%end;

把你要替换的变量依次编号(脑中，或者其他文件上记录一下)：var1，var2...
然后把你那段程序中指定变量替换成&var1. &var2.
然后copy到宏里面去。。。

不知道楼主有什么其他难题？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群