From 9b1ef62384dbfed460588ffeb4bce14e850a1eab Mon Sep 17 00:00:00 2001
From: Yannick Marcon <yannick.marcon@obiba.org>
Date: Wed, 22 Apr 2026 22:28:45 +0200
Subject: [PATCH] fix: return family name in glmDS2 result

---
 R/glmDS2.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/glmDS2.R b/R/glmDS2.R
index 9287075c..891aae71 100644
--- a/R/glmDS2.R
+++ b/R/glmDS2.R
@@ -382,7 +382,7 @@ glmDS2 <- function (formula, family, beta.vect, offset, weights, dataName) {
     errorMessage.combined <- "No errors"
   }
   
-  return(list(family=f, info.matrix=info.matrix, score.vect=score.vect, numsubs=numsubs, dev=dev,
+  return(list(family=f$family, info.matrix=info.matrix, score.vect=score.vect, numsubs=numsubs, dev=dev,
               Nvalid=Nvalid,Nmissing=Nmissing,Ntotal=Ntotal,disclosure.risk=disclosure.risk,
               errorMessage2=errorMessage.combined))