决策树宏代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好，我现在想把下面这段代码写成宏的形式，为了防止以后变量不断修改很麻烦，谢谢！
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;                                                                                                               

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：决策树 SCOR 大家好 SCO cor

咋用呢？

好多，没看懂！

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

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

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