r - 乘法函数

Question

假设我在 R 中有两个数值函数，例如 cos 和 exp。获得新函数对象 f(x) = cos(x)*exp(x) 的最快方法是什么？我可以将其定义为

f <- function(x) {cos(x)*exp(x) }

但是有没有一种简写方法可以做到这一点(例如 f = cos*exp)

Answer 1

如果您经常这样做，您可以定义一个二元运算符:

"%*f%" = function(x, y) {
    force(x)
    force(y)
    function(z) x(z) * y(z)
}

f = cos %*f% exp
x = runif(10)

> identical(f(x), cos(x) * exp(x))
[1] TRUE

这具有可链接的优点:

g <- cos %*f% exp %*f% log %*f% mean
g(x) # works appropriately