Update R/clustering_tfit_window.R

R/clustering_tfit_window.R

@@ -53,14 +53,10 @@ clustering_tfit <- function(organism, network) {
     
     clust = unlist(result_tfit[[2]][clust])
     
-    print("######### 1")
-    print(clust)
     
     if(length(clust) > 0) {
     
       row = cbind(i, paste(clust, collapse = ";"))
-      print("######### 2")
-      print(paste(clust, collapse = ";"))
     
       clust_tab = rbind(clust_tab, row)
       
@@ -71,7 +67,7 @@ clustering_tfit <- function(organism, network) {
   
   colnames(clust_tab) = c("cluster","proteins")
   
-  write.table(x = clust_tab, file = File.clas)
+  write.table(x = clust_tab, file = File.clas, row.names = F, col.names = T, quote = F, sep = "\t")