zero out if scale is N = 1

tanlabcode · tanlabcode · commit f8d084baf8eb · 2021-11-05T12:50:44.000-06:00
diff --git a/R/integrate_gene_network.R b/R/integrate_gene_network.R
@@ -440,6 +440,7 @@ write_integrated_net <- function(dir_out) {
 
     # normalize edge costs
     cost_norm <- unlist(lapply(cost, scale))
+    cost_norm[is.na(cost_norm)] <- 0
     cost_full <- 1 - minmax(cost_norm)
 
     # verify edge names belong to node names
