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

R/clustering_tfit_window.R

@@ -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

R/methods.R

@@ -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)) {