diff --git a/07_final_assignment/.RData b/07_final_assignment/.RData
index e08dca5..64fee0d 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 2741a1c..a8c3ee7 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -339,11 +339,12 @@
 
 testfunc = function() {
   n <- 10
-  trialCount <- 300
+  trialCount <- 50000
   for( a in 0:n) {
     k <- 1.0 / n * a
     print(k)
-    s <- simulateAndAnalyse(data, trialCount, alpha=1, beta=k)
+    #s <- simulateAndAnalyse(data, trialCount, alpha=1, beta=k)
+    s <- simulateAndAnalyse(data, trialCount, alpha=0.000001, beta=0.00001)
     s[1] <- as.character(k)
     monkeydat <- rbind(monkeydat,
                        s)