Update plot_common_support.R

priism-center · Mar 4, 2023 · 176bb9a · 176bb9a
1 parent a3ba6ee
commit 176bb9a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_common_support.R b/R/plot_common_support.R
@@ -123,7 +123,7 @@ plot_common_support <- function(.model, .x = NULL, .y = NULL,  rule = c('both',
         .x <-  .x[1, 1]
       } else{
         .x[is.nan(.x$complexity), 'complexity'] <-  0
-        .x <- .x[.x$complexity == max(x$complexity), 1]
+        .x <- .x[.x$complexity == max(.x$complexity), 1]
       }
     }
   }