diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index b05d853..4e05fec 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -386,7 +386,9 @@
 }
 
 do.experiment <- function(i) {
-  filename <- paste("resultdat", i, ".txt", sep="")
+    resultdir <- "results"
+    dir.create(resultdir, showWarnings = FALSE) # dont show warning if dir exists
+  filename <- paste(resultdir, "/", "resultdat", i, ".txt", sep="")
   
   if(debug) {
     resultdat <- data.frame(alpha=numeric(1), beta=numeric(1),