Make variance_jackknife verbose

PLN-team · Nov 15, 2023 · a8852e4 · a8852e4
1 parent 1537ac0
commit a8852e4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/PLNfit-class.R b/R/PLNfit-class.R
@@ -205,6 +205,7 @@ PLNfit <- R6Class(
     },
 
     variance_jackknife = function(Y, X, O, w, config = config_default_nlopt) {
+      cat("Computing jackknife variance estimator", sep = "\n")
       jacks <- future.apply::future_lapply(seq_len(self$n), function(i) {
         data <- list(Y = Y[-i, , drop = FALSE],
                      X = X[-i, , drop = FALSE],