fix delta-gamma binomial link for type = 'poisson-link'

pbs-assess · May 6, 2024 · 132f46b · 132f46b
1 parent 3b4b112
commit 132f46b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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")
 }