small fix so that outliers are not drawn, if there are none

ggobi · Mar 27, 2024 · 20c5035 · 20c5035
1 parent d888e29
commit 20c5035
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/display-xy.r b/R/display-xy.r
@@ -227,10 +227,12 @@ display_xy <- function(center = TRUE, axes = "center", half_range = NULL,
  #mdst <- mahal_dist(data, ellipse)
  anomalies <- which(mdst > ellc)
  #cat("1 ", length(anomalies), "\n")
- points(x[anomalies,],
+ if (length(anomalies) > 0) {
+ points(x[anomalies,],
  col = "red",
  pch = 4,
  cex = 2)
+ }
  }
  else
  message("Check the variance-covariance matrix generating the ellipse\n")