Efrain Gonzalez / Cleaning and Fixing Data with R

Download as
Browse Code ยป

Commit bb19c1c3639bfca2de290ce11096b8cad98d05eb

Authored by Efrain Gonzalez
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
... ... @@ -28,7 +28,7 @@ Check2Match &lt;- 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 &lt;- 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 &lt;- 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]] %>%