Quiero arrancar un conjunto de datos que tiene grupos en él. Un escenario simple sería un simple medio de arranque:

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)

Esto me da el error.incorrect number of subscripts on matrix, porqueby = "group" parte. Me las arreglé para resolverlo usando subconjuntos, pero no me gusta esta solución. ¿Hay alguna forma más sencilla de hacer que este tipo de tarea funcione?

En particular, me gustaría presentar un argumento adicional en la función de estadísticas comostat(x, i, groupvar) y pasarlo a la función de arranque comoboot(data, stat(groupvar = group), R = 100)?