All families now use identity link as default

open-AIMS · Aug 20, 2021 · 6640867 · 6640867
1 parent b1991a8
commit 6640867
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 4 deletions.
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/R/validate_family.R b/R/validate_family.R
@@ -11,10 +11,8 @@ validate_family <- function(family) {
   } else if (is.character(family)) {
     if (family == "beta_binomial2") {
       family <- get(family)
-    } else if (family == "Gamma") {
-      family <- get(family)(link = "log")
     } else {
-      family <- get(family)() # i.e (link = "identity")
+      family <- get(family)(link = "identity")
     }
   }
   if (!inherits(family, "family")) {

diff --git a/data-raw/beta_binomial2.R b/data-raw/beta_binomial2.R
@@ -2,7 +2,7 @@ library(usethis)
 library(brms)
 beta_binomial2 <- brms::custom_family(
     "beta_binomial2", dpars = c("mu", "phi"),
-    links = c("logit", "log"), lb = c(NA, 0),
+    links = c("identity", "log"), lb = c(NA, 0),
     type = "int", vars = "trials[n]"
   )
 

diff --git a/data/beta_binomial2.rda b/data/beta_binomial2.rda