Commit 7cd42887 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/clustering_tfit_window.R, R/methods.R

parent 945ffd61
......@@ -31,8 +31,6 @@ clustering_tfit <- function(organism, network) {
# Appel de la fonction tfit: TODO = save results somewhere
result_tfit = tfit(File.gr) ##################################################
print(result_tfit)
clust = "init"
clust_tab = NULL
......
......@@ -238,6 +238,8 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
# Recuperation des differents pubmed-ID
if (length(indi) > 1) {
pmids <- unique(Inter.red[indi,6])
pmindices = grep(x = pmids, pattern = "pubmed")
pmids = pmids[pmindices]
pmids <- as.matrix(pmids)
pmids2 <- c()
for (n in 1:length(pmids)) {
......
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