如何在R中的多元函数中仅积分一个变量？

Question

我有下一个功能：

f <- function(x,y,z,w) {dpois(x, lambda = w*cos(y-z) ) }

我想构造一个由 f 对 x 的积分定义的函数 g(y,z,w)。 当我有两个变量时我可以这样做，例如代码是这样的

margin <- function(y) { sapply(y, function(y) { integrate(function(x) f(x,y), llimx, ulimx)$value }) }

但我不知道如何为两个以上的变量做到这一点。

Answer 1

也许你可以试试下面的代码

f <- Vectorize(function(x,y,z,w) dpois(x, w*cos(y-z)),"x") 
g <- function(y,z,w) integrate(f, lower = 0, upper =Inf, y, z, w)