From 132f46bd975ba57bb4f4f662e8a6d6b8350ee6a3 Mon Sep 17 00:00:00 2001
From: Jillian Dunic <>
Date: Mon, 6 May 2024 12:36:55 -0700
Subject: [PATCH] fix delta-gamma binomial link for type = 'poisson-link'

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

diff --git a/R/families.R b/R/families.R
index 98198bb00..6e85c11b6 100644
--- a/R/families.R
+++ b/R/families.R
@@ -348,7 +348,7 @@ delta_gamma <- function(link1,
     .type <- "standard"
     clean_name <- paste0("delta_gamma(link1 = '", l1, "', link2 = '", l2, "')")
   }
-  structure(list(f1, f2, delta = TRUE, link = c("logit", "log"),
+  structure(list(f1, f2, delta = TRUE, link = c(l1, l2),
     type = .type, family = c("binomial", "Gamma"),
     clean_name = clean_name), class = "family")
 }