R传递函数作为变量

1mrurvl1 于 2023-03-27 发布在其他

关注(0)|答案(4)|浏览(175)

我正在做一个项目来分析函数输出，所以需要在R中传递一个函数作为参数。为了澄清，我有不同数量的模型，并且不寻求建立模型的帮助，只是将模型函数名称传递到评分函数中。
这适用于直接调用，但我想让它更通用，以构建模块。下面是一个简单的例子：

#create a test function:
model1 = function(y,X){
fit = lm(y~X)
output = data.frame(resid = fit$residuals)
}

#score function:
score = function(y,X,model){
y= as.matrix(y) 
X = as.matrix(X)
fitModel = model(y,X)
yhat = y - fitModel$residual
output = data.frame(yhat=yhat)
}

我可以用有效的y和X矩阵调用这个代码

df <- data.frame(x=rnorm(5),y=runif(5))
scoreModel1 = score(df$y,df$x,model1)

但我正在寻找的是一种列出所有模型的方法，并循环，和/或以通用方式调用score函数。例如：

models = c("model1")
scoreModel1 = score(df$y,df$x,models[1])

上面代码的错误是

Error in score(y, X, model) : 
could not find function "model"

我尝试了as.function（），列出和取消列出参数，但没有任何效果

models = c(model1)
models = list(model1)
models = list("model1")

预先感谢你的帮助。

来源：https://stackoverflow.com/questions/14046195/r-pass-function-in-as-variable

4条答案

按热度按时间

mpbci0fu1#

对于那些从谷歌来到这里想知道如何将函数作为参数传递的人来说，这里有一个很好的例子：

randomise <- function(f) f(runif(1e3))
 
randomise(mean)
#> [1] 0.5029048 

randomise(sum)
#> [1] 504.245

randomise(function(x) (x)^2)

这是从哈德利的书找到here

赞(0）回复(0）举报 2023-03-27

uxhixvfz2#

你的列表对象可以直接是函数。也许你可以从这个结构中得到一些用处，或者接受罗兰的建议，传递公式。Richiemorrisroe的答案可能更清晰。

fun1 <- function(x,y){
    x+y
}

fun2 <- function(x,y){
    x^y
}

fun3 <- function(x,y){
    x*y
}

models <- list(fun1 = fun1, fun2 = fun2, fun3 = fun3)

models[["fun1"]](1,2)
 [1] 3
models[[1]](1,2)
 [1] 3

lapply(models, function(FUN, x, y){ FUN(x = 1, y = 2)})
$fun1
 [1] 3

$fun2
 [1] 1

$fun3
 [1] 2

赞(0）回复(0）举报 2023-03-27

ogq8wdun3#

match.fun是你的朋友。它是applytapply等人用于相同目的的东西。注意，如果你需要将参数传递给模型拟合函数，那么你要么需要将所有这些都捆绑到一个函数中，如so function(x) sum(x==0, na.rm=TRUE)，要么将它们作为列表提供，并使用do.call，如so do.call(myfunc, funcargs)。
希望这个有用。

赞(0）回复(0）举报 2023-03-27

2lpgd9684#

另一个答案：

models = list(model1)
scoreModel1 = score(df$y,df$x,models[[1]])

将函数作为变量传递的示例：

f_add<- function(x,y){ x + y }
f_subtract<- function(x,y){ x - y }
f_multi<- function(x,y){ x * y }

operation<- function(FUN, x, y){ FUN(x , y)}

operation(f_add, 9,2)
#> [1] 11
operation(f_subtract, 17,5)
#> [1] 12
operation(f_multi,6,8)
#> [1] 48

祝好运

赞(0）回复(0）举报 2023-03-27

我来回答

R传递函数作为变量

4条答案

相关问题

热门标签

最新问答