fix: return family name in glmDS2 result

ymarcon · ymarcon · commit 9b1ef62384db · 2026-04-22T22:28:45.000+02:00
diff --git 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))  
  

Original file line number	Diff line number	Diff line change
`@@ -382,7 +382,7 @@ glmDS2 <- function (formula, family, beta.vect, offset, weights, dataName) {`
`382`	`382`	`errorMessage.combined <- "No errors"`
`383`	`383`	`}`
`384`	`384`
`385`		`- return(list(family=f, info.matrix=info.matrix, score.vect=score.vect, numsubs=numsubs, dev=dev,`
	`385`	`+ return(list(family=f$family, info.matrix=info.matrix, score.vect=score.vect, numsubs=numsubs, dev=dev,`
`386`	`386`	`Nvalid=Nvalid,Nmissing=Nmissing,Ntotal=Ntotal,disclosure.risk=disclosure.risk,`
`387`	`387`	`errorMessage2=errorMessage.combined))`
`388`	`388`