迭代地乘以R中的一行的值

Question

我试图根据数据帧中的一行中的观察值计算新的值向量。我想从第一个值开始，乘以第二个值，然后将第三个值乘以刚刚计算的值。我不确定如何引用一个不存在的值，直到我计算出来。

这是什么，如果我在写这一点，手写我会做：

index1 <- rnorm(12) 
index2 <- rnorm(12) 
index3 <- rnorm(12) 
index4 <- rnorm(12) 
index5 <- rnorm(12) 
data <- rbind(index1, index2, index3, index4, index5) 

splice1=data[2,1] 
splice2=splice1*data[2,2] 
splice3=splice2*data[2,3] 
splice4=splice3*data[2,4] 
splice5=splice4*data[2,5] 

splices <- c(splice1, splice2, splice3, splice4, splice5) 

我需要为25行数据的做到这一点。

我发现此文章 Multiply previous row value by constant R 但我不知道如何使这项工作，当你通过从数据集索引引用。

我确定必须有一个简单的方法来做到这一点，但我不知道从哪里开始。

谢谢你的帮助。

Answer 1

?apply在每行数据的?cumprod功能：

t(apply(data, 1, cumprod)) 

#    [,1]  [,2]  [,3]  [,4]   [,5] 
#index1 0.37891415 1.02182094 0.62823228 0.03616281 -0.0262988311 
#index2 -0.06586518 -0.03332061 -0.02814185 0.01755643 -0.0238307051 
#index3 -0.09113830 0.13385726 -0.11245386 0.10917885 -0.1466176651 
#index4 -0.53727635 0.71947970 0.87007225 0.19779160 -0.2119473091 
#index5 -0.83982393 -0.08571211 -0.08986865 0.02597184 -0.0006549512 

第2行这里看起来很熟悉：

splices 
#  index2  index2  index2  index2  index2 
#-0.06586518 -0.03332061 -0.02814185 0.01755643 -0.02383071 

cumprod()本质上只是乘以沿各供货组数字，一个cum ulative prod uct：

cumprod(1:5) 
#[1] 1 2 6 24 120 

如果速度是一个问题，你可以看一下matrixStats包：

library(matrixStats) 
rowCumprods(data)