如何使用该调用的另一个参数以及在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
}