From feddf41c11ea9c5685fcf02fd63e2a44279bdc94 Mon Sep 17 00:00:00 2001
From: Yannick Marcon <yannick.marcon@obiba.org>
Date: Sun, 29 Mar 2026 14:59:26 +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))