Commit 0cd041d9 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/methods.R

parent 7cd42887
...@@ -238,8 +238,6 @@ pubmed_id <- function(Final.List.Redondant, Name, run) { ...@@ -238,8 +238,6 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
# Recuperation des differents pubmed-ID # Recuperation des differents pubmed-ID
if (length(indi) > 1) { if (length(indi) > 1) {
pmids <- unique(Inter.red[indi,6]) pmids <- unique(Inter.red[indi,6])
pmindices = grep(x = pmids, pattern = "pubmed")
pmids = pmids[pmindices]
pmids <- as.matrix(pmids) pmids <- as.matrix(pmids)
pmids2 <- c() pmids2 <- c()
for (n in 1:length(pmids)) { for (n in 1:length(pmids)) {
...@@ -250,6 +248,8 @@ pubmed_id <- function(Final.List.Redondant, Name, run) { ...@@ -250,6 +248,8 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
} }
} }
pmids <- unique(as.vector(pmids2)) pmids <- unique(as.vector(pmids2))
pmindices = grep(x = pmids, pattern = "pubmed")
pmids = pmids[pmindices]
# Rassemblement des different pubmed-ID de chaque interaction # Rassemblement des different pubmed-ID de chaque interaction
pmids3 <- c() pmids3 <- c()
b <- length (pmids) 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