数据计算求助！谢谢高手！

code	f	r
1	0.1	1.2
1	0.1
1	0.1
1	0.1
1	0.1
1	0.2
1	0.2
1	0.2
1	0.2
1	0.2
1	0.2
1	0.2

现有上面的表格，现在需要计算r这个变量
r=lag（r）*0.6+f*0.4
这里的lagr是上一个r值，也就是需要一个值一个值的计算。

谢谢高手


我用excel做了一个结果可以 用来核对程序的正确与否

code	f	r	rr
1	0.1	1.2	1.2
1	0.1		0.76
1	0.1		0.496
1	0.1		0.3376
1	0.1		0.24256
1	0.2		0.225536
1	0.2		0.2153216
1	0.2		0.20919296
1	0.2		0.205515776
1	0.2		0.203309466
1	0.2		0.201985679
1	0.2		0.201191408

data have;
infile cards missover;
input code f r;
datalines;
1 0.1 1.2
1 0.1
1 0.1  
1 0.1  
1 0.1  
1 0.2
1 0.2  
1 0.2  
1 0.2  
1 0.2  
1 0.2  
1 0.2  
;
data wanted;
    set have;
        retain temp;
        if _n_ ne 1 then r=temp+f*0.4;
        temp=r*0.6;
        drop temp;
run;

你不是自己已经用EXCEL算出来了吗
还是我没看清楚

excel是算的小样本，是个范例

data<-read.table("",header=T)
f<-data$f
l<-length(f)
r<-as.numeric()
r[1]=1.2
for (i in 2:l){
r[i]=r[i-1]*0.6+f[i]*0.4
}
print(r)
用R吗。。
我也是算过类似的，算新的变量，直接算是快，写程序是希望以后用的上，但在转换文件上比较麻烦。