update to send on server.

Ts_gs/sensitivity_analysis.Rmd

@@ -119,6 +119,7 @@ GT_fun <- function(mat){
 ```
 
 ## iterations
+
 ```{r X1-X2-samples, eval = F}
 file=list.files("SA_temp_files/") %>% str_remove(".csv")
 
@@ -136,7 +137,7 @@ a <-  Sys.time()
 print(a)
 n <- 50000
 
-sob_sampler <- function(tib){# le tib doit être de longueur ncol et 1 ligne. 
+sob_sampler <- function(tib, min_value = -10000, max_value = 100000){# le tib doit être de longueur ncol et 1 ligne. 
   tib %>% 
     left_join(distribs, by = "variable") %>% 
     mutate(range = map2(value,params, ~rnorm(n,mean = .x,sd = .y))) %>%