Add master script

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