如何将迭代从引导程序保存到列表中

Question

我有一个看起来像这样的数据框：

df <- data.frame(id=c(rep("no.234",20),rep("no.125",15)),y=rnorm(35))

我想在每个 id 上使用贝叶斯引导程序，迭代例如 1000 次，然后使用循环或管道将结果放入列表中。 1个id的流程是：

require(bayesboot)
require(dplyr)
no.234 <- df %>% filter(id=="no.234")
bb <- bayesboot(no.234$y, R=1000)

Answer 1

使用sapply 循环遍历所有ID。

x <- sapply(levels(df$id), 
     FUN=function(x) bayesboot(df$y[df$id==x], statistic=mean, R=1000))

结果将是一个列表，其中每个元素将包含给定 id 的引导统计信息。