r - 如何在R中添加函数

Question

我正在尝试对列表中的函数求和以创建新函数。这对于少量函数来说很容易。这是一个例子:

f <- function(x){x}
g <- function(x){x+1}

现在我们将 f 和 g 相加。

fg <- function(x){f(x) + g(x)}

但是如果我有 100 个函数想要求和，这个方法就变得笨拙了。有没有办法从列表中自动创建像上面的 fg 这样的函数？

Answer 1

我更喜欢减少:

f <- function(x){x}
g <- function(x){x+1}
h <- function(x){x*2}

funs<-list(f,g,h)

x <- 1:3

Reduce("+", lapply(funs, function(f, y) f(y), y=x))
#[1]  5  9 13

当然，所有函数的返回值必须具有相同的长度。