add test

easystats · Sep 5, 2024 · 16b3e03 · 16b3e03
1 parent d3c30c9
commit 16b3e03
Show file tree

Hide file tree

Showing 4 changed files with 88 additions and 6 deletions.
diff --git a/R/plot.p_significance.R b/R/plot.p_significance.R
@@ -32,7 +32,7 @@ data_plot.p_significance <- function(x,
     data <- data[, x$Parameter, drop = FALSE]
     dataplot <- data.frame()
     for (i in names(data)) {
-      if (is.null(params)) {
+      if (is.null(params) || !all(c("Effects", "Component") %in% colnames(params))) {
         dataplot <- rbind(
           dataplot,
           .compute_densities_ps(data[[i]], name = i, threshold = attr(x, "threshold"))
@@ -160,7 +160,7 @@ data_plot.p_significance <- function(x,
 
   # normalize
   range_diff <- diff(range(out$height, na.rm = TRUE), na.rm = TRUE)
-  out$height <- as.vector(out$height - min(out$height, na.rm = TRUE) / range_diff)
+  out$height <- as.vector((out$height - min(out$height, na.rm = TRUE)) / range_diff)
   out
 }
 

diff --git a/R/utils.R b/R/utils.R
@@ -42,7 +42,9 @@
 
   # clean parameters names
   params <- gsub("(b_|bs_|bsp_|bcs_)(.*)", "\\2", params, perl = TRUE)
-  params <- gsub("^zi_(.*)", "\\1 (Zero-Inflated)", params, perl = TRUE)
+  params <- gsub("^cond_(.*)", "\\1 (Conditional)", params, perl = TRUE)
+  params <- gsub("(.*)_cond$", "\\1 (Conditional)", params, perl = TRUE)
+    params <- gsub("^zi_(.*)", "\\1 (Zero-Inflated)", params, perl = TRUE)
   params <- gsub("(.*)_zi$", "\\1 (Zero-Inflated)", params, perl = TRUE)
   params <- gsub("(.*)_disp$", "\\1 (Dispersion)", params, perl = TRUE)
   # clean random effect parameters names