diff --git a/r/Master.R b/r/Master.R
index 413224f9129ac74304883812289d7a3baef0a711..43770a595f48d7aa447ba01297adf2d5b746f885 100644
--- a/r/Master.R
+++ b/r/Master.R
@@ -19,20 +19,20 @@ articles <- getData(use.cache = TRUE)
 
 ## Data processing
 
-results <- lapply(articles, function(x) {
+results <- lapply(articles, function(data) {
   ## Data cleaning
   
-  # cleaned.text <- someCleanFunctioN(x$Text)
+  # cleaned.text <- someCleanFunctioN(data$Text)
   
   ## Data preprocessing/annotating
   
-  # annotated.text <- annotationFunction(x$Text)
+  # annotated.text <- annotationFunction(data$Text)
   
   ## Extract information from Text
   
   # someFact <- getFactFromTextFunctioN(annotated.text)
   
-  # someOtherFact <- getOtherFactFromText(x$Text)
+  # someOtherFact <- getOtherFactFromText(data$Text)
   
   ## Create Results