如何批量计算移动平均值

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问各位大大，如何批量实现数据从表1到表2转换，其中表2中新生成的变量（AL1,Cr2，Mn1），为原始数据前两天对应均值（如：第三天为第1天和第2天均值，第4天为第2天和第3天对应均值，恳请各位指导，谢谢。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

多加了几个附件，删不掉了

msen2010 发表于 2018-3-1 17:50
请问各位大大，如何批量实现数据从表1到表2转换，其中表2中新生成的变量（AL1,Cr2，Mn1），为原始数据前两天 ...

lag函数可以实现。http://mp.weixin.qq.com/s/mQLjJf85O743UB7Lf2kDkw

data have;
        input Al Cr Mn;
datalines;
1 7 12
2 8 13
3 9 14
4 10 15
5 11 16
6 12 17
;
run;

data want;
        set have;
        array x Al Cr Mn;
        array y Al1 Cr1 Mn1;
        do i=1 to dim(x);
                y(i)=(lag1(x(i))+lag2(x(i)))/2;
        end;
        drop i;
run;

1. data a;
   
2. input day al cr mn;
   
3. cards;
   
4. 1 1 7 12
   
5. 2 2 8 13
   
6. 3 3 9 14
   
7. 4 4 10 15
   
8. 5 5 11 16
   
9. 6 6 12 17
   
10. ;
    
11. run;
    
12. 
    
13. proc sort data=a;
    
14. by day;
    
15. run;
    
16. 
    
17. data a1;
    
18. length day al al1 cr cr1 mn mn1 8;
    
19.         set a;
    
20.         array list al cr mn;
    
21.         array listm lag_al lag_cr lag_mn;
    
22.         array listn al_mean cr_mean mn_mean;
    
23.         array listp al1 cr1 mn1;
    
24.         do i=1 to dim(list);
    
25.         listm[i]=lag(list[i]);
    
26.         if listm[i]^=. then listn[i]=sum(of list[i] listm[i])/2;
    
27.         listp[i]=lag(listn[i]);
    
28.         end;
    
29. keep  al al1 cr cr1 mn mn1;
    
30. run;

复制代码

请楼主跑下程序，看是否你想要的结果

舍身卫道 发表于 2018-3-5 11:32
请楼主跑下程序，看是否你想要的结果

谢谢您的回复，就是这样的

xiami2000 发表于 2018-3-2 00:14
data have;
        input Al Cr Mn;
datalines;

谢谢您