diff --git a/Projects/CSA/ExperimentalDesign.R b/Projects/CSA/ExperimentalDesign.R
index 2ff47e827fe18a375b21066de656a990a09c48f7..8f40a98e20cd6df47e520bffb5eb9d641c646889 100644
--- a/Projects/CSA/ExperimentalDesign.R
+++ b/Projects/CSA/ExperimentalDesign.R
@@ -39,3 +39,4 @@ summary(design)
 
 saveRDS(design$design, "Projects/CSA/Designs/design1.RDS")
 
+write.csv2(design$design, "Projects/CSA/Designs/design1.csv")
diff --git a/functions.R b/functions.R
index 231ffb5ab71f1db0053efcb318bcfa8ff885adfb..2092551891864a1d1e8065e959551eddba42d963 100644
--- a/functions.R
+++ b/functions.R
@@ -1,6 +1,22 @@
+make_md <- function(f=file){
+  
+  
+  
+  
+  rmarkdown::render("simulation_output.rmd",
+                    output_file = paste0(
+                      stringr::str_remove_all(
+                        file,"parameters_|.R$"),".html"),
+                    params = list(file=file)
+  )
+  
+}
+
 
 sim_all <- function(){
 
+  require("stringr")
+  
   designfile<-list.files(designpath,full.names = T)
   designname <- str_remove_all(list.files(designpath,full.names = F),
                                "(.ngd|_|.RDS)")  ## Make sure designnames to not contain file ending and "_", as the may cause issues when replace
diff --git a/generatemd.R b/generatemd.R
index 36f349f738701b9e116878a34869c18403196479..d3d9b3a1244fdbcbb542bbd291175d17ca1628c3 100644
--- a/generatemd.R
+++ b/generatemd.R
@@ -1,16 +1,11 @@
 
 rm(list=ls())
 
+source("functions.R")
+
 file <- "Projects/feedadditives/parameters_feedadd.R"
 #  file <- "Projects/CSA/parameters_csa.R"
 
 
-rmarkdown::render("simulation_output.rmd",
-                  output_file = paste0(
-                    stringr::str_remove_all(
-                      file,"parameters_|.R$"),".html"),
-                  params = list(file=file)
-                  )
-
-
 
+make_md()
\ No newline at end of file