传递一个2参数函数给组合体。

Question

我正在使用内置数据集"ChickWeight“。对于每一个名字，体重，时间，小鸡，饮食，我的功能是简单地取每一对名字，体重时间，体重饮食，时间小鸡，时间饮食，小鸡饮食之间的差异。函数和计算本身是相当简单和单一的，但我想知道如何在组合中传递2参数函数。

我的脚本如下

out <- combn(names(ChickWeight), 2, simplify=FALSE)

f <- function(x, y)
{
diff <- (x - y)
}

mapply(f, out[1,], out[2,])

更新:我似乎需要减去函数f中的数值，而不是名称。我在想我该怎么做。也许我需要找到一种方法来引用out1和out2，以便可以调用各自列中的数值。

Answer 1

我想知道如何在组合中传递2参数函数。

好的，有两个问题。编程的一个是由如下的东西解析的

combn(names(ChickWeight), 2, function(x) ChickWeight[[x[1]]] - ChickWeight[[x[2]]])

combn总是采用单参数函数，令人困惑。

概念上的问题是:小鸡是序数数据，饮食是绝对的。在像减法这样的算术运算中，这两种方法都没有意义(这就是上面的代码给出警告和NAs的原因)。