請問如何利用宏實(shí)現(xiàn)？

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個(gè)全額獎(jiǎng)學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個(gè)論壇幣！

+2 論壇幣

數(shù)據(jù)集為 %macro a(lag_num=); data a;     input stkcd num@@;     cards;     1 1 1 2 1 3 1 4 2 1 2 2 2 3 2 4 3 1 3 2 3 3 3 4     ; run; proc print data=a; run; ???? %mend; %a(lag_num=1);

proc print data=a;
run;

%a(lag_num=2);

proc print data=a;
run;

若滯后為1，則結(jié)果為 stkcd     num_lag1 1            . 1            1 1            2 1            3 2           . 2            1 2            2 2            3 3          . 3           1 3           2 3           3

若滯后為2，則結(jié)果為
stkcd     num_lag1  num_lag21           .                   .
1            1                  .
1            2                  1
1            3                  2
2           .                     .
2            1                  .
2            2                  1
2            3                  2
3          .                     .   
3           1                   .
3           2                   1
3           3                   2

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏0 回帖

關(guān)鍵詞：print stkcd Input cards Macro 如何

1. data a;
   
2.     input stkcd num@@;
   
3.     cards;
   
4. 1 1 1 2 1 3 1 4 2 1 2 2 2 3 2 4 3 1 3 2 3 3 3 4
   
5.     ;
   
6. run;
   
7. 
   
8. %macro lag(n=);
   
9. data b;
   
10.         set a;
    
11.         by stkcd;
    
12.         %do i=1 %to &n.;
    
13.                 num_lag&i.=lag&i(num);
    
14.                 if lag&i(stkcd)^= stkcd then num_lag&i.=.;
    
15.         %end;
    
16. run;
    
17. %mend;
    
18. %lag(n=2);

復(fù)制代碼

可~樂 發(fā)表于 2012-2-20 14:04

謝謝解答，程序沒有問題

lixqji 發(fā)表于 2012-2-20 14:25
謝謝解答，程序沒有問題

呵呵，共同學(xué)習(xí)。。。