.MeanMSTEdge.dist

ms609 · Jun 27, 2024 · c5fa179 · c5fa179
1 parent be46537
commit c5fa179
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cluster_stats.R b/R/cluster_stats.R
@@ -226,7 +226,7 @@ MeanMSTEdge.dist <- function(x, cluster = 1) {
   d <- as.matrix(x)
   diag(d) <- NA_real_
   vapply(seq_along(unique(cluster)),
-         function(i) .MeanNN.dist(d[cluster == i, cluster == i, drop = FALSE]),
+         function(i) .MeanMSTEdge.dist(d[cluster == i, cluster == i, drop = FALSE]),
          numeric(1))
 }