Update transitivity functions

LoukiaSpin · Dec 14, 2023 · c968b51 · c968b51
1 parent 8072a00
commit c968b51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/comp.clustering_function.R b/R/comp.clustering_function.R
@@ -757,7 +757,7 @@ comp_clustering <- function (input,
 
 
     ## Data-frame with the cluster per comparison
-    cluster_comp <- silhouette_res[, c(4, 1)]
+    cluster_comp <- silhouette_res[, c(4, 1, 3)]
   }