按公式计算

Question

我需要根据以下公式进行一些计算：

B1 = A1 + (1-A1) * B1

示例：

B1 = 0.2 + (1 - 0.2) * 0.4
   = 0.52

C1 = 0.4 + (1 - 0.4) * 0.8
   = 0.904

D1 = 0.8 + (1 - 0.8) * 0.5
   = 0.952

其他行其他列同样的逻辑，一共11个。

数据框：

df

A        B      C        D
0.2     0.4     0.8     0.5
0.4     0.5     0.6     0.2
0.8     0.1     0.5     0.4
0.3     0.4     0.1     0.8

预期输出：

A       B       C       D
0.2     0.52    0.904   0.952
0.4     0.7     0.88    0.904
0.8     0.82    0.91    0.946
0.3     0.58    0.622   0.9244

我用下面的代码试了1次：

Df <- df[-ncol(df)] + ( 1 – df[-ncol(df)]) * df[-1]

我能够根据输出获得 B 列，但不适用于该列的其余部分。 请帮忙，谢谢。 BM。

Answer 1

您可以递归地执行此操作，如下所示：

do.call(cbind, Reduce(f = function(A1, B1) A1+(1-A1)*B1, 
                      x = df, 
                      accumulate = TRUE))

说明： 由于 df 是一个向量列表的 data.frame，Reduce 将获取每个向量并应用您的函数。然后do.call(cbind,...)将结果合并到一个data.frame中。