From bb19c1c3639bfca2de290ce11096b8cad98d05eb Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Tue, 7 Nov 2017 16:17:25 -0500 Subject: [PATCH] UPDATE!!!! Changed from i+1 < to i+1<= by = "ID_REF" Will make a difference in any analysis that used this code --- RMatchGenes.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/RMatchGenes.R b/RMatchGenes.R index c202fb8..90d6a5c 100644 --- a/RMatchGenes.R +++ b/RMatchGenes.R @@ -28,7 +28,7 @@ Check2Match <- function(){ eddnocd <- edd[-(1:numrows[2]),] ##Fully matched both data sets - eddy <- inner_join(ednocd,eddnocd) + eddy <- inner_join(ednocd,eddnocd,by = "ID_REF") #Matches meds <- eddy[,1] @@ -39,7 +39,7 @@ Check2Match <- function(){ read_delim(.,delim = "\t") eddnocd <- edd[-(1:numrows[i + 1]),] ##Fully matched both data sets - eddy <- inner_join(meds,eddnocd) + eddy <- inner_join(meds,eddnocd,by = "ID_REF") meds <- eddy[,1] @@ -52,7 +52,7 @@ Check2Match <- function(){ read_delim(.,delim = "\t") ednocd <- ed[-(1:numrows[j]),] #use meds to match - eddy <- inner_join(meds,ednocd) + eddy <- inner_join(meds,ednocd,by = "ID_REF") Finedm <- rbind(ed[1:numrows[j],],eddy) nam_fil_ed <- strsplit(edfile,"[\\|/]") %>% .[[1]] %>% -- 2.29.0