R：将值Y乘以列Y中的第1行，然后将结果Z乘以第2行列Y

Question

我的DF由1个变量组成＆＃34;返回＆＃34;长度= 131，我有单独的对象＆＃34; TP＆＃34;

TP <- 87
print(DF)
Return
0.0904
0.0312
0.0005
-0.0225
....

我正在努力寻找正确的代码来执行以下操作：

create a new column vector "NewVec" where: 
R1= (0.0904+1)*TP
R2= (0.0312+1)*R1
R3= (0.0005+1)*R3

目前我只设法将整个回归向量乘以TP

NewVec <- (Return+1)*TP

显然，这不会产生预期的结果。

非常感谢任何帮助，谢谢

Answer 1

这是在黑暗中拍摄的。

newvec<-matrix(nrow=length(Return))
for(i in 1:length(Return)){
  if(i==1)newvec[i,]<-(Return[i]+1)*TP
  else newvec[i,]<-(Return[i]+1)*newvec[i-1,]
}