removed midpoint from being displayed

schochastics · Dec 15, 2023 · 8f6dcef · 8f6dcef
1 parent 8090550
commit 8f6dcef
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -183,7 +183,7 @@ print.netrankr_interval <- function(x, ...) {
 #' @author David Schoch
 #' @export
 plot.netrankr_interval <- function(x, cent_scores = NULL, cent_cols = NULL, ties.method = "min", ...) {
-    x$mid_point <- (x$max_rank - x$min_rank) / 2
+    x$mid_point <- (x$max_rank + x$min_rank) / 2
     ord <- order(x$mid_point)
     if (!is.null(cent_scores)) {
         m <- ncol(cent_scores)
@@ -207,7 +207,7 @@ plot.netrankr_interval <- function(x, cent_scores = NULL, cent_cols = NULL, ties
     }
     plot(
         x = factor(x$node, levels = x$node[ord]),
-        y = x$mid_point, pch = 0, cex = 0,
+        y = rep(NA, nrow(x)), pch = 0,
         ylim = c(0, nrow(x)),
         ylab = "ranks",
         xlab = "",

diff --git a/man/figures/README-partial-1.png b/man/figures/README-partial-1.png