diff --git a/bin/2.2_motif_estimation/merge_similar_clusters.R b/bin/2.2_motif_estimation/merge_similar_clusters.R index d9b2373..c832b21 100644 --- a/bin/2.2_motif_estimation/merge_similar_clusters.R +++ b/bin/2.2_motif_estimation/merge_similar_clusters.R @@ -49,7 +49,7 @@ merge_similar <- function(tsv_in, file_list, min_weight){ g_adj <- igraph::graph_from_adjacency_matrix(adj_matrix, weighted = T) # get subgraphs from graph with edges of weight > min_weight - s1 <- igraph::subgraph.edges(g_adj, igraph::E(g_adj)[igraph::E(g_adj)$weight > min_weight], del = F) + s1 <- igraph::subgraph.edges(g_adj, igraph::E(g_adj)[igraph::E(g_adj)$weight > min_weight], delete.vertices = F) png('motif_clusters.png') plot(s1) dev.off()