gpt4 book ai didi

r - lapply 是否有序应用函数?

转载 作者:行者123 更新时间:2023-12-04 21:32:13 26 4
gpt4 key购买 nike

我有一个功能列表

functions <- list(f1, f2, f3, ...)

我需要传递一个对象 x通过所有功能。我可以这样做:
for (fun in functions){
fun(x)
}

这些函数不返回任何内容,但它们的顺序很重要,即 f1(x)必须在 f2(x)之前申请.

因此,我正在考虑使用 lapply :
lapply(functions, function(fun) fun(x))

但不知道是不是 lapply首先应用列表的第一个函数 functions或者如果它遵循另一个顺序。使用循环我保证排序,但它可能会变慢。

任何的想法?

最佳答案

问题“pass x through ...”的措辞表明您认为这将完成一个“组合”,即将函数串行应用到先前应用的结果。尽管您可以重新设计 for,但您提出的任何解决方案都不会这样做。循环这样做。看看?funprog我无耻地引用了部分帮助页面:

## Iterative function application:
Funcall <- function(f, ...) f(...)
## Compute log(exp(acos(cos(0))
Reduce(Funcall, list(log, exp, acos, cos), 0, right = TRUE)

比较 for 的结果带有 Reduce 的循环版本版本:
> flist <- list(log, exp, acos, cos)
> arg <- 0; for (f in flist) {arg <- f(arg)}
> arg
[1] 6.123234e-17
> Funcall <- function(f, ...) f(...)
> ## Compute log(exp(acos(cos(0))
> Reduce(Funcall, list(log, exp, acos, cos), 0, right = TRUE)
[1] 0

这表明 <something>实际上正在发生:
arg <- 0; for (f in flist) {arg <- f(arg);cat(arg,"\n")}
-Inf
0
1.570796
6.123234e-17

但它们不一样,因为 right=TRUE实际上颠倒了应用顺序并解释了最终结果中的微不足道的差异。相比:
arg <- 0; for (f in rev(flist)) {arg <- f(arg);cat(arg,"\n")}

关于r - lapply 是否有序应用函数?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48234195/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com