codes/0_ALL.R

sourceX <- function(x){source(x, local = TRUE, echo = TRUE)}
t1 <- Sys.time()
sourceX("1_admins_combinaisons.R")
sourceX("2_admin_njours.R")
sourceX("3_merge_results.R")
t2 <- Sys.time()
timediff <- difftime(t2, t1)
timediff
INESSSQC/INESSS documentation built on May 4, 2019, 4:14 a.m.