R：如何使replicate（）和sapply（）产生相同的结果？

Question

通过重复操作五次，用replicate()模拟十个数字均值的分布。

> set.seed(123)
> z <- replicate(5, mean(rnorm(10))

我想使用sapply创建第二个向量q，以便

> identical(z, q)
[1] TRUE

尽管R Grouping functions: sapply vs. lapply vs. apply. vs. tapply vs. by vs. aggregate和help文件中有丰富的文档，但我无法生成sapply能够整合产生{{1}的五次重复的代码}。 实际上，我得到的最好结果包括z本身：

replicates()

并且它生成长度为50的向量set.seed(123) q <- sapply(replicate(5, rnorm(10)), mean) ，而不是q中的长度为5的向量。我担心这是哥伦布的鸡蛋，我从错误的角度来看。