Update transitivity functions

LoukiaSpin · Dec 13, 2023 · 6ae6042 · 6ae6042
1 parent e642ac8
commit 6ae6042
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/comp.clustering_function.R b/R/comp.clustering_function.R
@@ -660,7 +660,8 @@ comp_clustering <- function (input,
     ## Plot silhouette for selected 'optimal_clusters'
     # Prepare dataset with silhouette width results
     silhouette_res <- 
-      data.frame(silhouette(cutree(hclust(as.dist(gower_diss_mat)), 
+      data.frame(silhouette(cutree(hclust(as.dist(gower_diss_mat), 
+                                          method = optimal_link), 
                                    k = optimal_clusters), 
                             as.dist(gower_diss_mat)),
                  study = input_new[, 1])