Commit aeb92e7b authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/clustering_tfit_window.R

parent 9edcd074
......@@ -35,12 +35,16 @@ clustering_tfit <- function(organism, network) {
clust = "init"
clust_tab = NULL
i = 0
while(length(clust) > 0) {
clust = NULL
row = NULL
i = i+1
......@@ -48,11 +52,20 @@ clustering_tfit <- function(organism, network) {
clust = result_tfit[[2]][clust]
print(i)
print(clust)
row = cbind(i, paste(clust, collapse = ";"))
clust_tab = rbind(clust_tab, col)
}
colnames(clust_tab) = c("cluster","proteins")
write.table(x = clust_tab, file = File.clas)
......
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