Commit 945ffd61 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/clustering_tfit_window.R

parent b0cbe44d
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment