diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index 5ec19c6..b415679 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -472,10 +472,10 @@
 ####                            VISUALIZATION & PLOTTING
 ########################################################################################
 
-harvest.data <- function(write.to.file=FALSE) {
+harvest.data <- function(write.to.file=FALSE, folder="results_backup") {
   data = data.frame()
   for(i in 1:num.cores) {
-    d <- read.table(paste("resultdat", i, ".txt", sep=""))
+    d <- read.table(paste(folder, "resultdat", i, ".txt", sep=""))
     data <- rbind(data, d)
   }
   if(write.to.file) {
@@ -548,6 +548,8 @@
 ####                            DATA ANALYSIS
 ########################################################################################
 
+
+
 #0. preprocessing
 monkeydat$GeneralAccuracy = as.numeric(monkeydat$GeneralAccuracy)
 monkeydat$WordAccuracy = as.numeric(monkeydat$WordAccuracy)
@@ -630,4 +632,4 @@
            useRaster=TRUE, col = topo.colors(100))
 
 
-# EOF
\ No newline at end of file
+# EOF