如何使用該調用的另一個參數以及在R中的函數環境內部創建的對象求值該函數調用的一個參數？

Question

我正在嘗試編寫一個將表達式作為參數的函數，然后在1）函數的另一個參數和2）在函數內部創建的對象的上下文中評估該表達式。

我在使環境正常工作時遇到了一些問題。 有誰知道如何做到這一點？

myfun <- function(es = .5, model = es * x[, 1]){
  x <- matrix(rnorm(300), ncol = 3)
  mu <- eval(model)
  mu
}

myfun(es = .8, model = es * x[, 1] + es * x[, 1]^2 + es * x[, 1]^3)

錯誤結果：eval（model）中的錯誤：找不到對象'es'

有什么建議么？

Answer 1

嘗試substitute ：

myfun <- function(es = .5, model = es * x[, 1]){
    x <- matrix(rnorm(300), ncol = 3)
    mu <- eval(substitute(model))
    mu
}