Commit 30f9ee59 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/clustering_tfit_window.R

parent aeb92e7b
......@@ -52,11 +52,15 @@ clustering_tfit <- function(organism, network) {
clust = result_tfit[[2]][clust]
if(length(clust) > 0) {
row = cbind(i, paste(clust, collapse = ";"))
clust_tab = rbind(clust_tab, col)
print(row)
clust_tab = rbind(clust_tab, row)
}
}
......@@ -69,6 +73,7 @@ clustering_tfit <- function(organism, network) {
cat("OK\n\n>Clustering TFit is done.\n")
cat(paste('\n>Results are stocked in : ', saveTFit.path))
setwd(mainpath)
......
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