diff --git a/RMatchGenes.R b/RMatchGenes.R
index c592955..2ff86b2 100644
--- a/RMatchGenes.R
+++ b/RMatchGenes.R
@@ -6,7 +6,7 @@ library(readr)
 library(dplyr)
 
 Check2Match <- function(){
-    numrows <- "How many rows of clinical data are their in each data set (seperate each number by a comma no spaces)?: " %>%
+    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]] %>%