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	
 }