如何为一组变量建立滞后和前移变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题。本人有大约40个variables,现在想为每一个variable建立前12个和后12的变量，请教大神有没有快速的方法。



     OBS  TIME   VAR1 VAR2 VAR3 ....       VAR40

建立完成之后应该有


   OBS TIME  VAR1 VAR1_LAG1 VAR1_LAG2 ....   VAR1_LAG12 VAR1_LEAD1 VAR1_LEAD2 ... VAR1_LEAD12   ...  VAR12

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Variables Variable Lead ABLE time 如何

1. /*以变量var1为例*/
   
2. data b;
   
3. set xx;
   
4. t=_n_;
   
5. array a(*) var1_lag1-var1_lag12;
   
6. var1_lag1=lag(var1);
   
7. do i=2 to 12;
   
8. a(i)=lag(a(i-1));
   
9. end;
   
10. drop i;
    
11. run;
    
12. proc sort data=b out=c;
    
13. by descending t;
    
14. run;
    
15. data c;
    
16. set c;
    
17. by descending t;
    
18. array b(*) var1_lead1-var1_lead12;
    
19. var1_lead1=lag(var1);
    
20. do i=2 to 12;
    
21. b(i)=lag(b(i-1));
    
22. end;
    
23. drop i;
    
24. run;
    
25. proc sort data=c out=test(drop=t);
    
26. by t;
    
27. run;

复制代码

proc sql noprint; select name into :vars from dictionary.columns where libname=upcase("&yourlibrary") and memname=upcase("&tbl") and name not in("OBS", "TIME");quit;
%macro aa(opt);
%let nvars=%sysfunc(count(&vars));
%do vi=1 %to &nvars;
%let var=%sysfunc(scan(&vars, &vi));
%do i=1 %to 40;
%do lagn=1 %to 12;
&var._&opt&lagn=lag&lagn(&var);
%end;
%end;
%end;
%mend;
proc sort data=a ; by obs;run;
data b;
set a;
%aa(lag);
run;
proc sort data=b; by obs descending;run;
data b;
set b;
%aa(lead);
run;