算一家公司数据的代码写出来了，怎么让其他公司也都用这个代码算？

假设我的把很多家公司的数据放一起叫data
那么计算一家公司的税款贴现代码是
F<-data[,3]
e<-rep((1+0.00025)^(-1),5)
e<-cumprod(e)      
for(i in 1:(length(F)-5)){
F<-sum(F,F[i+1:i+5]/e)
}
那么怎么用这个代码把剩余的公司税款贴现全部算出来？

。。。。。。。。。。。。。。