pop_project : changed set-seed formula for finer precision

R/pop_project.R

@@ -78,7 +78,7 @@ pop_project <- function(fatalities,
     }
 
     # Sample a seed for RNG
-    seed <- ((((Sys.time() %>% as.numeric) %% 1e5) * 1e5) %% 1e5) %>% round
+    seed <- ((((Sys.time() %>% as.numeric) %% 1e10) * 1e9) %% 1e5) %>% round
       #runif(1, 0, 1e6)
 
     ## Projection : apply the LESLIE matrix calculation forward

R/pop_project_cumulated_impacts.R

@@ -89,7 +89,7 @@ pop_project_cumulated_impacts <- function(fatalities,
     }
 
     # Sample a seed for RNG
-    seed <- runif(1, 0, 1e6)
+    seed <- ((((Sys.time() %>% as.numeric) %% 1e10) * 1e9) %% 1e5) %>% round
 
     ## Projection : apply the LESLIE matrix calculation forward
     # Scenario 0