init (#1379)

vincentarelbundock · Feb 6, 2025 · 8645ae2 · 8645ae2
1 parent c76c05d
commit 8645ae2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/bootstrap_boot.R b/R/bootstrap_boot.R
@@ -40,7 +40,7 @@ bootstrap_boot <- function(model, INF_FUN, ...) {
     # print.boot prints an ugly nested call
     t <- matrix(B$t, nrow = nrow(B$t))
     op <- cbind(
-        apply(t, 2L, mean, na.rm = TRUE),
+        colMeans(t, na.rm = TRUE),
         sqrt(apply(t, 2L, function(t.st) stats::var(t.st[!is.na(t.st)]))))
     out$std.error <- op[, 2]