Update R/clustering_tfit_window.R

R/clustering_tfit_window.R

@@ -33,6 +33,27 @@ clustering_tfit <- function(organism, network) {
 
   print(result_tfit)
 
+  clust = "init"
+  
+  i = 0
+  
+  while(length(clust) > 0) {
+    
+    clust = NULL
+    
+    
+    i = i+1
+    
+    clust = grep(pattern = i, x = result_tfit[[1]])
+    
+    clust = result_tfit[[2]][clust]
+    
+    print(i)
+    print(clust)
+    
+    
+  }
+
   
   
   cat("OK\n\n>Clustering TFit is done.\n")