2

我想编写一个函数，它接受任何用户提供的数学函数（例如，x^2）并用它做不同的事情，例如：

#-----------------nonworking code---------------------
foo <- function(FUN, var){
      math_fun <- function(x){
           FUN
      }
   curve(math_fun, -5, 5)     #plot the mathematical function
   y = math_func(var)         #compute the function based on a user provided x value.
   points(x=var, y=y)         #plot the value from the last step.
}

#A user can use the function defined above in a way as shown below:
Function <- x^2 + x
foo(FUN=Function, var = 2)

但显然这个函数不起作用：首先，如果我运行这个函数，我会得到Error in math_fun(x) : object 'x' not found.

其次，即使函数确实有效，我假设变量是x，但用户可以使用任何字母。

对于第二个问题，一种可能的解决方案是还要求用户指定他们使用的字母作为变量。

foo <- function(FUN, var, variable){
      math_fun <- function(variable){
           FUN
      }
   curve(math_fun, -5, 5) 
   y = math_func(var)     
   points(x=var, y=y)     
}

但是我不知道我该如何实现这一点……如果有人可以帮助我解决至少部分问题，那就太好了。谢谢！

4

1 回答 1

6

它比这简单得多。用户定义的函数应在其定义中包含参数，例如，function(x) x^2 + x而不是x^2 + x. 然后就可以直接传递调用了：

foo <- function(math_fun, var){

   curve(math_fun, -5, 5)  #plot the mathematical function
   y = math_fun(var)       #compute the function based on a user provided x value
   points(x=var, y=y)      #plot the value from the last step.
}

#A user can use the function defined above in a way as shown below:
Function <- function(x) x^2 + x
foo(Function, var = 2)
于 2013-01-25T21:34:25.177 回答