Commit bb19c1c3639bfca2de290ce11096b8cad98d05eb
1 parent
b0ad80bb4c
Exists in
master
UPDATE!!!! Changed from i+1 < to i+1<=
by = "ID_REF" Will make a difference in any analysis that used this code
Showing
1 changed file
with
3 additions
and
3 deletions
Show diff stats
RMatchGenes.R
... | ... | @@ -28,7 +28,7 @@ Check2Match <- function(){ |
28 | 28 | eddnocd <- edd[-(1:numrows[2]),] |
29 | 29 | |
30 | 30 | ##Fully matched both data sets |
31 | - eddy <- inner_join(ednocd,eddnocd) | |
31 | + eddy <- inner_join(ednocd,eddnocd,by = "ID_REF") | |
32 | 32 | #Matches |
33 | 33 | meds <- eddy[,1] |
34 | 34 | |
... | ... | @@ -39,7 +39,7 @@ Check2Match <- function(){ |
39 | 39 | read_delim(.,delim = "\t") |
40 | 40 | eddnocd <- edd[-(1:numrows[i + 1]),] |
41 | 41 | ##Fully matched both data sets |
42 | - eddy <- inner_join(meds,eddnocd) | |
42 | + eddy <- inner_join(meds,eddnocd,by = "ID_REF") | |
43 | 43 | meds <- eddy[,1] |
44 | 44 | |
45 | 45 | |
... | ... | @@ -52,7 +52,7 @@ Check2Match <- function(){ |
52 | 52 | read_delim(.,delim = "\t") |
53 | 53 | ednocd <- ed[-(1:numrows[j]),] |
54 | 54 | #use meds to match |
55 | - eddy <- inner_join(meds,ednocd) | |
55 | + eddy <- inner_join(meds,ednocd,by = "ID_REF") | |
56 | 56 | Finedm <- rbind(ed[1:numrows[j],],eddy) |
57 | 57 | nam_fil_ed <- strsplit(edfile,"[\\|/]") %>% |
58 | 58 | .[[1]] %>% |