Update R/clustering_tfit_window.R

R/clustering_tfit_window.R

@@ -39,7 +39,7 @@ clustering_tfit <- function(organism, network) {
   
   i = 0
   
-  while(length(clust) > 0) {
+    while(length(clust) > 0) {
     
     clust = NULL
     
@@ -52,11 +52,15 @@ clustering_tfit <- function(organism, network) {
     
     clust = result_tfit[[2]][clust]
     
-
+    if(length(clust) > 0) {
+    
+      row = cbind(i, paste(clust, collapse = ";"))
     
-    row = cbind(i, paste(clust, collapse = ";"))
+      print(row)
     
-    clust_tab = rbind(clust_tab, col)
+      clust_tab = rbind(clust_tab, row)
+      
+    }
     
     
   }
@@ -66,6 +70,7 @@ clustering_tfit <- function(organism, network) {
   write.table(x = clust_tab, file = File.clas)
   
   
+