Commit 7238e334 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/tfit.R, R/clustering_tfit_window.R

parent 1b49e687
......@@ -29,7 +29,9 @@ clustering_tfit <- function(organism, network) {
cat('\n>Running TFit...')
# Appel de la fonction tfit: TODO = save results somewhere
tfit(File.gr) ##################################################
result_tfit = tfit(File.gr) ##################################################
cat("OK\n\n>Clustering TFit is done.\n")
cat(paste('\n>Results are stocked in : ', saveTFit.path))
......
......@@ -26,5 +26,6 @@ tfit <- function(X)
adjacencyMatrix[integerEdge2,integerEdge1] <- TRUE #symmetric graph
}
partition <- .Call("tfit", adjacencyMatrix, PACKAGE = "appinetwork")
list("partition"=partition, "labels"=labels)
result_tfit = list("partition"=partition, "labels"=labels)
return result_tfit
}
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