r - 在 R 中使用 expand.grid 应用函数

Question

我有两个向量 x 和 y。我使用以下函数创建一个网格:

v = expand.grid(x, y)

我有一个函数定义如下

N <- function(a, b , dat){
     m = ncol(Filter(function(z) a*max(z)*min(z) < b , dat[1:ncol(dat)]))
     return(m)
}

然后我需要在 x,y 的网格上最大化 N:

Maximize <- function(x , y ,dat){
          v = as.matrix(expand.grid(x,y))
          # Here is where I want to map the values of v and get the maximum element and 
          # get the tuple in v that maximized N
          temp1 <- max(apply(v , 1 , N(v[[1]] , v[[2]] , dat)))
}

谢谢

Answer 1

Map 不会像那样遍历列表的行。怎么样

x <- 1:3
y <- 11:13
v <- expand.grid(x, y)
do.call(mapply, c(function(a, b) a+b, unname(v)))
# [1] 12 13 14 13 14 15 14 15 16

这里每个值都作为单独的参数传递给函数。