将combn()函数应用于数据帧？

Question

因此，我有一个数据框架，其中包含不同股票的某些类型的数据，示例如下：

Date     RY    TD     BNS...
10-01   2.98   2.29   1.91
10-02   2.96   2.61   2.15
10-03   2.96   2.59   2.09
...

我想要做的是使用combn()函数来计算两个股票的所有可能组合的乘积之和。我知道如何使用单个值来实现它，例如：

df <- c(2.98, 2.29, 1.91)
sum(combn(df, 2, prod))

但是，由于现在我有一个数据框架，每个符号都有每日数据，我如何应用上述函数并将和结果输出为与每个日期相对应的数据列表？

谢谢

Answer 1

正如Alistaire所建议的，应用程序可以很容易地用于此。

apply(df[, -1], 1, function(x) {
     sum(combn(x, 2, prod))
}
)

您还可以使用包并行并使用mcapply*函数在多核模式下运行它