diff --git a/RMatchGenes.R b/RMatchGenes.R
index 2ff86b2..d6be7a7 100644
--- a/RMatchGenes.R
+++ b/RMatchGenes.R
@@ -6,13 +6,14 @@ library(readr)
 library(dplyr)
 
 Check2Match <- function(){
+    ANDIS <- select.list(choices = list.files(),multiple = TRUE, title = "Choose the file/files you want to analyze:")
     numrows <- "How many rows of clinical data are their in each data set (separate each number by a comma no spaces)?: " %>%
 	readline(prompt = .) %>%
 	strsplit(.,split = ",") %>%
 	.[[1]] %>%
 	as.integer(.)
     i <- 1
-    ANDIS <- select.list(choices = list.files(),multiple = TRUE, title = "Choose the file/files you want to analyze:")
+    
 
     for(i in 1:length(numrows)){
 	    if( i == 1){