Update utils.R

easystats · Sep 6, 2024 · dd620c8 · dd620c8
1 parent 8d74554
commit dd620c8
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -271,3 +271,19 @@
 
   insight::format_error("The `rvar_col` argument must be a single, valid column name.")
 }
+
+#' @keywords internal
+.clean_distributional <- function (d) {
+  nm <- format(d)
+  attributes(d) <- NULL
+  names(d) <- nm
+  d
+}
+
+#' @keywords internal
+.is_discrete_dist <- function (d) {
+  inherits(d, c("dist_bernoulli", "dist_binomial", "dist_categorical",
+                "dist_geometric", "dist_logarithmic", "dist_multinomial",
+                "dist_negative_binomial", "dist_poisson",
+                "dist_poisson_inverse_gaussian"))
+}