r函数在函数参数+ apply中

Question

我在同一个函数中使用多个函数并调用生成的参数时遇到了麻烦。我使用了一个更复杂的功能，可以简化如下：

 func.essai <- function(x) {
 g <- sample(seq(1,30), x)
 i <- sample(x,1)
 func.essai.2 <- function(y,i) {
  z <- y+i
 }
 h <- sapply(g,func.essai.2(y,i))
}
sq <- seq(1,4)
lapply(sq, func.essai)

我使用func.essai开头生成的参数（取决于x）作为func.essai.2的固定输入，此处为{{1} }，以及作为i函数的向量，此处为sapply。此代码无法正常工作 - 它无法识别g和/或y。如何重写代码呢？

Answer 1

我认为你得到的错误是因为你使用了sapply。这应该有效，而不是包含sapply：

的行

 h <- sapply(g,func.essai.2, i)

请参阅?sapply，它告诉您应该在应用的函数后面提供其他参数。