added time output

Projects/Agora/parameters_agora.R

@@ -3,22 +3,27 @@
 designpath<- "Projects/Agora/Designs/"
 
 resps =360  # number of respondents
-nosim=1000 # number of simulations to run (about 500 is minimum)
+nosim=2 # number of simulations to run (about 500 is minimum)
 
 #betacoefficients should not include "-"
-#basc = -1.2
-#basc2 = -1.4
-#baction = 0.1
-#badvisory = 0.4 
-#bpartner = 0.3
-#bcomp = 0.02
-
-basc = -2.2
-basc2 = -2.7
-baction = -0.15
-badvisory = 0.26 
-bpartner = -0.09
-bcomp = 0.004
+
+#design priors parameters
+basc = -1.2
+basc2 = -1.4
+baction = 0.1
+badvisory = 0.4
+bpartner = 0.3
+bcomp = 0.02
+
+
+# from survey
+
+# basc = -2.2
+# basc2 = -2.7
+# baction = -0.15
+# badvisory = 0.26 
+# bpartner = -0.09
+# bcomp = 0.004
 
 
 

generatemd.R

@@ -2,12 +2,12 @@
 rm(list=ls())
 
 #file <- "Projects/ValuGaps/parameters_valugaps.R"
-  file <- "Projects/Agora/parameters_agora.R"
+  file <- "Projects/SE_DRIVE/parameters_SE_DRIVE.R"
 
 
 rmarkdown::render("simulation_output.rmd",
                   output_file = paste0(stringr::str_remove_all(file,
-                                                               "parameters_|.R$"),"reecap.html"),
+                                                               "parameters_|.R$"),".html"),
                   params = list(file=file)
                   )
 

simulation_output.rmd

@@ -36,6 +36,8 @@ print(combined_vector)
 
 The simulation has `r resps` respondents and `r nosim` runs.
 
+The total time for estimation is `r all_designs[["time"]]`.
+
 the parameters used for the simulation are: 
 
 ```{r, echo=FALSE}

simulationcore_purrr.R

@@ -34,7 +34,7 @@ time <- tictoc::toc()
 
 print(time)
 
-
+all_designs[["time"]]=time
 
 powa <- map(all_designs, ~ .x$power)