Commit ab367623 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/methods.R

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