請問怎麼用lag function

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

請問怎麼得到第三列? 十分感謝!

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：function CTI Fun lag UNC function

以下是一個方法...但想知道怎麼結合lag 和 macro做到


data temp1;
input test$ i;
cards;
A 1
B 2
C 2
D 1
E 3
F 1
G 5
;
run;

data temp2;
set temp1;
k=_n_-i;
j=_n_;
run;


proc sql;
create table temp3 as
select a.*,b.test as test2
from temp2 as a left join temp2 as b
on a.k=b.j
order by j;
quit;

1. data temp1;
   
2. input test $ i;
   
3. cards;
   
4. A 1
   
5. B 2
   
6. C 2
   
7. D 1
   
8. E 3
   
9. F 1
   
10. G 5
    
11. ; run;
    
12. 
    
13. proc sql ;
    
14.    select max(i) into : max_lag
    
15.    from temp1;
    
16. quit;
    
17. 
    
18. data _null_;
    
19.    length tlag $ %eval(20*&max_lag.);
    
20.    do n = 1 to &max_lag;
    
21.      lagn = cats("Tlag", n, "=", "lag", n, "(test);");
    
22.      tlag = catx(" ", tlag, lagn);  
    
23.    end;
    
24.    call symput("setlags", tlag);
    
25. run;
    
26. 
    
27. data temp5;
    
28.     set temp1;
    
29.     &setlags;
    
30.      array tlag(&max_lag);
    
31.     test2 = tlag(i);
    
32.     keep test i test2;
    
33. run;

复制代码

yongyitian 发表于 2016-2-28 10:20

太厲害了!!! 十分謝謝!

不过题主的方法效率其实更高一些。