求帮忙创建一个macro程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各路大神，

我目前在做一个risk management的项目，现在需要去求roll rate，data step写出来的程序是这样的，希望能够做一个简化。
data task1;
        set p2.delinquency_buckets;
        RR_0_30=DPD30/lag(Curr_Bal);
        RR_30_60=DPD60/lag(DPD30);
        RR_60_90=DPD90/lag(DPD60);
        RR_90_120=DPD120/lag(DPD90);
        RR_120_150=DPD150/lag(DPD120);
        RR_150_180=DPD180/lag(DPD150);
run;

求一些不同的方法，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Macro CRO acr Mac 求帮忙 程序

试一下这个，data _null_ 把你的variables写入macro variables， &var1/&vare/。。。data task结构和你的一样。希望对你有帮助。（声明：我没有运行过）
data _null_ ;
    input var $ @@;
    call symputx(cats('var', _n_), var) ;
cards ;
curr_bal DPD30 DPD60 DPD90 DPD120 DPD180
;
run ;

data task ;
   set p2.delinquency_buckets ;
   RR_0_30    = &var1/lag(&var2) ;
   RR_30_60   = &var2/lag(&var3) ;
   RR_60_90   = &var3/lag(&var4) ;
   RR_90_120  = &var4/lag(&var5) ;
   RR_120_180 = &var5/lag(&var6) ;
run ;

%macro jj(p,q);
   RR_&p._&q.=DPD&q./lag(DPD&p.);
%mend jj;

data task1;
        set p2.delinquency_buckets;

        RR_0_30=DPD30/lag(Curr_Bal);
  %jj(60,90);
  %jj(90,120);
  %jj(120,150);
  %jj(150,180);
run;

lovexialulu 发表于 2016-11-22 17:06
%macro jj(p,q);
   RR_&p._&q.=DPD&q./lag(DPD&p.);
%mend jj;

非常感谢呀，我这就去试试了