Commit 9edcd074 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/clustering_tfit_window.R

parent 732fbbc5
......@@ -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")
......
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