Merge pull request #340 from pbs-assess/fix-delta-gamma-binomial-link

fix delta-gamma binomial link for type = 'poisson-link'
pbs-assess · May 17, 2024 · 0e3bb32 · 0e3bb32
2 parents a9bcda1 + 132f46b
commit 0e3bb32
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")
 }