我想引导一个包含组的数据集.一个简单的场景是引导简单的方法： data - as.data.table(list(x1 = runif(200), x2 = runif(200), group = runif(200)0.5))stat - function(x, i) {x[i, c(m1 = mean(x1), m2 = mean(x2)), by = "g
data <- as.data.table(list(x1 = runif(200), x2 = runif(200), group = runif(200)>0.5))
stat <- function(x, i) {x[i, c(m1 = mean(x1), m2 = mean(x2)), by = "group"]}
boot(data, stat, R = 10)
这给了我错误的矩阵下标数量,因为by =“group”部分.我设法使用子集来解决它,但不喜欢这个解决方案.是否有更简单的方法使这种任务工作？
特别是,我想在统计函数中引入一个额外的参数,如stat(x,i,groupvar),并将其传递给引导函数,如boot(data,stat(groupvar = group),R = 100)？
这应该这样做：data[, list(list(boot(.SD, stat, R = 10))), by = group]$V1