r - 有没有办法访问replicate()中的迭代次数？

Question

是否有某种方法可以访问 replicate 中的当前复制编号函数以便我可以在重复评估中将其用作变量？例如，在这个简单的例子中，我想使用当前复制编号来生成当前复制编号的可变长度向量列表。例如，x下面将代表当前的复制:

replicate( 3 , rep( x , sample.int(5,1) ) )

我知道这个微不足道的例子很容易用 lapply

lapply( 1:3 , function(x) rep( x , sample.int(5,1) ) )

但是你能访问 replicate中的复制计数器吗？ ?

Answer 1

不，至少不是以受支持的、用户友好的方式。正如阿伦所说:

> replicate
function (n, expr, simplify = "array") 
sapply(integer(n), eval.parent(substitute(function(...) expr)), 
    simplify = simplify)
...

> sapply
function (X, FUN, ..., simplify = TRUE, USE.NAMES = TRUE) 
{
    FUN <- match.fun(FUN)
    answer <- lapply(X = X, FUN = FUN, ...)
    ...

现在这就是 sapply看你是否通过 3 :

> integer(3)
[1] 0 0 0

你为什么不写自己的版本 replicate用作快捷方式？