From b0ad80bb4c1950d4f23a1495e811b76dc8362e4d Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Tue, 7 Nov 2017 16:10:40 -0500
Subject: [PATCH] UPDATE!!!! Changed from i+1 < to i+1<= Will affect previous
 results

---
 RMatchGenes.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/RMatchGenes.R b/RMatchGenes.R
index d6be7a7..c202fb8 100644
--- a/RMatchGenes.R
+++ b/RMatchGenes.R
@@ -33,7 +33,7 @@ Check2Match <- function(){
 		    meds <- eddy[,1]
 		
 	    }	
-	    if(i > 1 && i + 1 < length(numrows)){
+	    if(i > 1 && ((i + 1) <= length(numrows))){
 		    eddfile <- ANDIS[i + 1]
 		    edd <- eddfile %>%
 		    	read_delim(.,delim = "\t")	
@@ -44,7 +44,6 @@ Check2Match <- function(){
 	
 		
 	    }
-	    i <- i + 1
     }
     meds
     for(j in 1:length(numrows)){
@@ -62,7 +61,6 @@ Check2Match <- function(){
     		c("GSE",.,"matched.txt") %>%
     		paste(collapse = "")
     	write.table(Finedm,file = nam_fil_ed,sep = "\t",row.names = FALSE)
-    	j <- j + 1
     }
     meds	
 }
-- 
2.29.0