support ordbeta

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 0.19.5.1
+Version: 0.19.5.2
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -1,3 +1,9 @@
+# insight 0.19.6
+
+## Changes to functions
+
+* `model_info()` now recognized orderd beta families.
+
 # insight 0.19.5
 
 ## Bug fixes

R/is_multivariate.R

@@ -12,7 +12,7 @@
 #' response model, or `TRUE` if a return value from a function of \pkg{insight}
 #' is from a multivariate response model.
 #'
-#' @examples
+#' @examplesIf require("rstanarm", quietly = TRUE)
 #' \donttest{
 #' library(rstanarm)
 #' data("pbcLong")

R/model_info.R

@@ -21,6 +21,7 @@
 #' * `is_count`: model is a count model (i.e. family is either poisson or negative binomial)
 #' * `is_beta`: family is beta
 #' * `is_betabinomial`: family is beta-binomial
+#' * `is_orderedbeta`: family is ordered beta
 #' * `is_dirichlet`: family is dirichlet
 #' * `is_exponential`: family is exponential (e.g. Gamma or Weibull)
 #' * `is_logit`: model has logit link

R/utils_model_info.R

@@ -65,30 +65,32 @@
     } else {
       is_bernoulli <- TRUE
     }
-  } else if (fitfam %in% "bernoulli") {
+  } else if (fitfam == "bernoulli") {
     is_bernoulli <- TRUE
   }
 
 
   # beta family --------
 
   beta_fam <-
-    inherits(x, c("betareg", "betamfx")) |
+    inherits(x, c("betareg", "betamfx", "ordbetareg")) |
       fitfam %in% c(
         "beta",
         "Beta",
         "betabinomial",
         "Beta Inflated",
         "Zero Inflated Beta",
         "Beta Inflated zero",
-        "Beta Inflated one"
+        "Beta Inflated one",
+        "ordbeta"
       )
 
 
-  # special families (beta-binomial, dirichlet) --------
+  # special families (beta-binomial, dirichlet, ordered beta) --------
 
-  betabin_fam <- inherits(x, "BBreg") | fitfam %in% "betabinomial"
-  dirichlet_fam <- inherits(x, "DirichletRegModel") | fitfam %in% "dirichlet"
+  betabin_fam <- inherits(x, "BBreg") | any(fitfam == "betabinomial")
+  orderedbeta_fam <- any(fitfam == "ordbeta") | inherits(x, "ordbetareg")
+  dirichlet_fam <- inherits(x, "DirichletRegModel") | any(fitfam == "dirichlet")
 
   ## TODO beta-binomial = binomial?
   if (betabin_fam) binom_fam <- TRUE
@@ -393,6 +395,7 @@
     is_negbin = neg_bin_fam,
     is_beta = beta_fam,
     is_betabinomial = betabin_fam,
+    is_orderedbeta = orderedbeta_fam,
     is_dirichlet = dirichlet_fam,
     is_exponential = exponential_fam,
     is_logit = logit.link,