Update R/methods.R

R/methods.R

@@ -270,8 +270,6 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
           Inter.partialRed <- rbind(Inter.partialRed, t(as.matrix(tmp[(1:dim(tmp)[1])[tmp[,6] == pmids[k]][1],])))
         }
         if(length(pmids3 != 0)) {
-          pmindices = grep(x = pmids3, pattern = "pubmed")
-          pmids3 = pmids3[pmindices]
           unredundant[nbl,6] <<- pmids3
         }
         # On complete la derniere colonne du reseau avec le nombre de pubmed-ID trouves pour chaque interaction