如何迭代求和

SAS小白求各位高手指导，我的基础数据如下：

indcd	year	X
a	2008	1
a	2009	2
a	2010	3
a	2011	4
a	2012	5
b	2009	2
b	2010	3
b	2011	4
b	2012	5

...
我希望对于每一个indcd，计算当年和前2年（共3年）的X总和sum和均值avg。如对于indcd=a时，2010sum为6（1+2+3）,2011sum为9（2+3+4）和2012sum为12（3+4+5）。
因为对于每一个Indcd，对应的year个数可能不同，有的是从2008-2012年，有的则是2009-2012年。

data one;
input indcd $ year x;
cards;
a        2008        1
a        2009        2
a        2011        4
a        2010        3
a        2012        5
b        2010        3
b        2009        2
b        2011        4
b        2012        5
;;;
run;
data two;
set one;
by indcd;

if first.indcd then count=0;
count+1;
sum=x+lag(x)+lag2(x);

if count>=3 then sum=sum;
else sum=.;
mean=sum/3;

drop count;
run;

1. data one;
   
2. input indcd $ year X;
   
3. cards;
   
4. a 2008 1
   
5. a 2010 3
   
6. a 2011 4
   
7. a 2012 5
   
8. b 2009 2
   
9. b 2010 3
   
10. b 2011 4
    
11. b 2012 5
    
12. ;run;
    
13. 
    
14. data two;
    
15.   if 0 then set one(rename=X=Y);
    
16.   if _n_ = 1 then do;
    
17.     dcl hash h(dataset:'one(rename=X=Y)');
    
18.         h.definekey('indcd','year');
    
19.         h.definedata('Y');
    
20.         h.definedone();
    
21.   end;
    
22. 
    
23.   set one;
    
24.   sum = X;
    
25.   if ~h.find(key:indcd, key:year - 1) then sum + Y;
    
26.   if ~h.find(key:indcd, key:year - 2) then sum + Y;
    
27. 
    
28.   drop Y;
    
29. run;

复制代码

此处考虑：一个indcd、一个year下只有一个X

1. proc sort data=a;
   
2.   by indcd year x;
   
3. run;
   
4. 
   
5. proc transpose data=a out=a_tr;
   
6.   by indcd;
   
7.   var x;
   
8.   id year;
   
9. run;
   
10. 
    
11. data final;
    
12.   set a_tr;
    
13.   sum2010=sum(of _2008-_2010);
    
14. run;

复制代码

proc sort data=test;
        by indcd year;
run;
data test1;
        set test;
        by indcd year;
        if first.indcd then n=1;
                else n+1;
        sum1=lag(x)+x;
        sum2=lag(sum1)+x;
        if n=1 or n=2 then
                do;
                        sum1=.;
                        sum2=.;
                end;
        drop n sum1;
run;

huangpengfei 发表于 2015-7-7 20:29
proc sort data=test;
        by indcd year;
run;

data test1;
        set test;
        by indcd year;
        if first.indcd then n=1;
                else n+1;
        sum=lag(x)+lag2(x)+x;
        if n=1 or n=2 then
                do;
                        sum=.;
                end;
        drop n ;
run;