fix issue with equivalence-test due to renaming (upper case) of values

easystats · Jun 24, 2019 · 8e96187 · 8e96187
1 parent 578f50b
commit 8e96187
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot.equivalence_test.R b/R/plot.equivalence_test.R
@@ -84,7 +84,7 @@ plot.see_equivalence_test <- function(x, rope_color = "#0171D3", rope_alpha = .2
   labels <- levels(tmp$predictor)
   names(labels) <- labels
 
-  fill.color <- fill.color[sort(unique(match(x$ROPE_Equivalence, c("accepted", "rejected", "undecided"))))]
+  fill.color <- fill.color[sort(unique(match(x$ROPE_Equivalence, c("Accepted", "Rejected", "Undecided"))))]
 
   add.args <- lapply(match.call(expand.dots = F)$`...`, function(x) x)
   if ("colors" %in% names(add.args)) fill.color <- eval(add.args[["colors"]])