fix logic

kharchenkolab · Mar 3, 2021 · 8489fc5 · 8489fc5
1 parent d5d9211
commit 8489fc5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/communities.R b/R/communities.R
@@ -32,9 +32,9 @@ NULL
 leiden.community <- function(graph, resolution=1.0, n.iterations=2) {
 
   ## add check for unweighted graph, i.e. graph$weight is NULL
-  if (igraph::is_weighted(graph)){
+  if (!igraph::is_weighted(graph)){
     ## simply set the vector of edge weights to 1
-    igraph::E(gr)$weight = 1
+    igraph::E(graph)$weight = 1
   }
 
   x <- find_partition(graph, igraph::E(graph)$weight, resolution, n.iterations)