使用具有多变量函数的outer（）

Question

假设你有一个函数f<- function(x,y,z) { ... } 。 你会如何将常数传递给一个参数，但让其他参数变化？ 换句话说，我想做这样的事情：

 output <- outer(x,y,f(x,y,z=2)) 

此代码没有评估，但有没有办法做到这一点？

Answer 1

outer(x, y, f, z=2)

函数后面的参数是它的附加参数，参见... in ?outer 。 这种语法在R中很常见，例如整个apply系列的工作方式相同。

更新：

我无法确切地告诉您在后续问题中想要完成什么，但想想这个表单上的解决方案可能就是您应该使用的。

outer(sigma_int, theta_int, function(s,t)
    dmvnorm(y, rep(0, n), y_mat(n, lambda, t, s)))

这将计算sigma_int和theta_int每个值组合的方差矩阵，使用该矩阵定义密度并在y定义的点中对其进行评估。 我无法测试它，因为我不知道所涉及的变量的类型和尺寸。

Answer 2

outer （以及apply函数系列和其他函数）将向其调用的函数传递额外的参数。 但是，如果您正在处理不支持这种情况的情况（例如， optim ），那么您可以使用更一般的currying方法。 咖喱函数是创建一个新函数，其中（某些）变量已修复，因此参数较少。

library("functional")
output <- outer(x,y,Curry(f,z=2))