Question

我对如何使用<条码>do.打字/代码”来指定和管理职能清单感到困惑。

例如:

make.draw = function(i){i;function()runif(i)}
function.list = list()
for (i in 1:3) function.list[[i]] = make.draw(i)

结果是

> function.list[[1]]()
 [1] 0.2996515
> function.list[[2]]()
 [1] 0.7276203 0.4704813
> function.list[[3]]()
 [1] 0.9092999 0.7307774 0.4647443

我想要做的是建立一种职能,把名单上的所有三项职能都放在一起。从我理解的<代码>as. calls(<>>)可以用来做这项工作,但我难以将斜线连接起来,从<代码>功能中抽取6个统一随机线。

Answer 1

你们是否希望这样做?

lapply(function.list, do.call, list())
# [[1]]
# [1] 0.5777857

# [[2]]
# [1] 0.8970102 0.5892031

# [[3]]
# [1] 0.4712016 0.2624851 0.2353192

Answer 2

 make.draw = function(i){runif(i)}
 Map(make.draw, 1:3)
#[[1]]
#[1] 0.03442084

#[[2]]
#[1] 0.6899443 0.8896434

#[[3]]
#[1] 0.3899678 0.2845898 0.4920698

友情链接