merge_similar_clusters.R: bugfix

loosolab · Feb 11, 2019 · 9bf3ed9 · 9bf3ed9
1 parent 4c08eeb
commit 9bf3ed9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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()