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

Update R/methods.R

parent 0cd041d9
......@@ -247,9 +247,10 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
pmids2 <- c(pmids2, a[[1]][p])
}
}
pmindices = grep(x = pmids2, pattern = "pubmed")
pmids2 = pmids2[pmindices]
pmids <- unique(as.vector(pmids2))
pmindices = grep(x = pmids, pattern = "pubmed")
pmids = pmids[pmindices]
# Rassemblement des different pubmed-ID de chaque interaction
pmids3 <- c()
b <- 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