From a8852e40bd749bba610a31492a953fa07132efe2 Mon Sep 17 00:00:00 2001
From: Mahendra Mariadassou <mahendra.mariadassou@gmail.com>
Date: Wed, 15 Nov 2023 23:51:04 +0100
Subject: [PATCH] Make variance_jackknife verbose

---
 R/PLNfit-class.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/PLNfit-class.R b/R/PLNfit-class.R
index b2dc83f3..64786a92 100644
--- 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],