allow up to 3-way interactions in cond_effects

nicholasjclark · Nov 6, 2023 · c315016 · c315016
1 parent 798eaa4
commit c315016
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/conditional_effects.R b/R/conditional_effects.R
@@ -93,8 +93,8 @@ conditional_effects.mvgam = function(x,
     cond_labs <- strsplit(as.character(effects), split = ":")
   }
 
-  if(any(lengths(cond_labs) > 2L)) {
-    stop("To display interactions of order higher than 2 ",
+  if(any(lengths(cond_labs) > 3L)) {
+    stop("To display interactions of order higher than 3 ",
          "please use plot_predictions()",
          call. = FALSE)
   }