lag函数有规律滞后求解

如何完成以下计算。有两个变量a和b，从第二行的观测开始，定义一个新变量c=第一个观测中的a和b相乘，第三行的观测c=第一行观测中的a和b相乘加上第二行的观测a和b相乘，以此类推，直到第100个观测。

1. data test;
   
2.         input a b;
   
3.         datalines;
   
4.         2 5
   
5.         5 8
   
6.         3 8
   
7.         7 3
   
8.         9 2
   
9.         ;
   
10. run;
    
11. 
    
12. data result;
    
13.         set test;
    
14.         retain c 0;
    
15.         if _n_=1 then do;
    
16.                 c=a*b;
    
17.         end;
    
18.         else do;
    
19.                 c=c+a*b;
    
20.         end;
    
21. run;

复制代码

1. data test;
   
2.         input a b;
   
3.         datalines;
   
4.         2 5
   
5.         5 8
   
6.         3 8
   
7.         7 3
   
8.         9 2
   
9.         ;
   
10. run;
    
11. 
    
12. data result;
    
13.         set test;
    
14.                 c+lag(a)*lag(b);
    
15. run;

复制代码

水经验的路过

data test;
  input a b;
  datalines;
2 5
5 8
3 8
7 3
9 2
;
run;

data a;
  set test;
  array avar a1-a100 ;
  retain avar;
  array bvar b1-b100 ;
  retain bvar;
  count+1;
  avar(count)=a;
  bvar(count)=b;
if count>=2 then  c+ avar(count-1)*bvar(count-1);
else c= . ;
keep a b c;
run;

zhengbo8 发表于 2014-9-11 12:55

这个不对的。a×b 不是上一阶的

sas9.4 发表于 2014-9-15 16:56
这个不对的。a×b 不是上一阶的

的确搞错了。{:3_55:}

data test;
do a=1 to 100;
b=a;
output;
end;
run;
data test2;
set test;
tmp=a*b;
run;
data test3;
set test2;
retain c;
if _n_=1 then c=tmp;
else c+tmp;
run;

来看看大神们的解答