diff --git a/07_final_assignment/.RData b/07_final_assignment/.RData
index be72312..754a4bb 100644
--- a/07_final_assignment/.RData
+++ b/07_final_assignment/.RData
Binary files differ
diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index d1064d3..c011387 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -355,6 +355,8 @@
 start.of.a.and.b = 0.001 #Can be changed with no further code adjustment
 end.of.a.and.b = 0.300 #Can be changed with no further code adjustment
 
+debug = FALSE
+
 
 #8 experiments for each core, 15 cores
 # -> 120 Experiments possible.
@@ -392,7 +394,7 @@
   write.table(resultdat, file=filename, col.names=names(resultdat))
   
   trialCount <- 50000 
-  r <- 0.5
+  r <- 0.65
   for(index in 1:monkeys.per.core) {
     
     a = get.a(i, index)
@@ -403,26 +405,28 @@
       print(paste("--running-- i: ", i, " a: ", a, " b: ", b, " r: ", r, sep="" ))
     }
     
-    if(FALSE) {
+    if(debug) {
+      
+      debug.frame = data.frame(alpha=a, beta=b,
+                        NumTrials=numeric(1),
+                        NumWordsLearned=numeric(1),
+                        NumNonwordsPresented=numeric(1),
+                        GeneralAccuracy=numeric(1),
+                        WordAccuracy=numeric(1),
+                        NonwordAccuracy=numeric(1))
+      
+      resultdat <- rbind(resultdat, debug.frame)
+      
+    } else {
       
       s <- simulateAndAnalyse(data, trialCount, alpha=a, beta=b, randomRatio=r )
       s[1] <- as.character(trialCount)
       resultdat <- rbind(resultdat,
                          c(a, b, s[2:length(s)]))
       
-      #write preliminary result to file -> in case of interruption nothing gets lost
     }
-    
-    asdf = data.frame(alpha=a, beta=b,
-                      NumTrials=numeric(1),
-                      NumWordsLearned=numeric(1),
-                      NumNonwordsPresented=numeric(1),
-                      GeneralAccuracy=numeric(1),
-                      WordAccuracy=numeric(1),
-                      NonwordAccuracy=numeric(1))
-    
-    resultdat <- rbind(resultdat, asdf)
-    
+  
+    #write preliminary result to file -> in case of interruption nothing gets lost
     write.table(resultdat, file=filename, col.names=names(resultdat))
   }