diff --git a/Projects/CSA/parameters_csa.R b/Projects/CSA/parameters_csa.R
index c2e314ff03357fb88aa3bde3354036bd42086a55..59d299802075b466289dab12da02a37446b3e38f 100644
--- a/Projects/CSA/parameters_csa.R
+++ b/Projects/CSA/parameters_csa.R
@@ -7,7 +7,7 @@ designpath<- "Projects/CSA/Designs/"
 notes <- "No Heuristics, price logarithmized after recoded to original level. methane continious"
 
 resps =240  # number of respondents
-nosim=2000 # number of simulations to run (about 500 is minimum)
+nosim=2 # number of simulations to run (about 500 is minimum)
 
 #betacoefficients should not include "-"
 bx1 =0.1
diff --git a/Projects/Rbook/parameters_Rbook.R b/Projects/Rbook/parameters_Rbook.R
index 78f77f6aab904ad0c37f7f7e29aae6800dd47d83..0f32bf6a247bd9a5c7bc005abda94cbb8a298354 100644
--- a/Projects/Rbook/parameters_Rbook.R
+++ b/Projects/Rbook/parameters_Rbook.R
@@ -7,7 +7,7 @@ designpath<- "Projects/Rbook/Designs/"
 notes <- "No Heuristics"
 
 resps =240  # number of respondents
-nosim=100 # number of simulations to run (about 500 is minimum)
+nosim=2 # number of simulations to run (about 500 is minimum)
 
 #betacoefficients should not include "-"
 bsq=0.00
diff --git a/functions.R b/functions.R
index acc9341e42159e992e6cd19a08f98b79c37755a4..231ffb5ab71f1db0053efcb318bcfa8ff885adfb 100644
--- a/functions.R
+++ b/functions.R
@@ -1,7 +1,9 @@
 
 sim_all <- function(){
 
- 
+  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
   
 if (!exists("destype")) destype="ngene"
 
diff --git a/simulation_output.rmd b/simulation_output.rmd
index 86c4c764ad009699344803feec98a3c7c9ae0009..d310dd0233914f5320ec517406460576e7547b1d 100644
--- a/simulation_output.rmd
+++ b/simulation_output.rmd
@@ -32,9 +32,7 @@ source(params$file)
 
 
 
-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
+
 
 all_designs <- sim_all()