Mercurial > repos > siwaa > redelac_stics_sim

comparison REDELACparallelSticsRsequence.R @ 1:50dd120308af draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://forgemia.inra.fr/redelac"
author siwaa
date Mon, 12 Jun 2023 16:06:00 +0000
parents 21e91d3b7068
children
comparison
equal deleted inserted replaced
0:21e91d3b7068 1:50dd120308af
39 # List of successive USMs 39 # List of successive USMs
40 successive_usms_file <- ("successionPlan.csv") 40 successive_usms_file <- ("successionPlan.csv")
41 successive_usms_tab <- read.csv(file = file.path(workspace, successive_usms_file)) 41 successive_usms_tab <- read.csv(file = file.path(workspace, successive_usms_file))
42 42
43 no_cores <- detectCores() - 1 43 no_cores <- detectCores() - 1
44 no_cores <- 10
44 cl <- makeCluster(no_cores) 45 cl <- makeCluster(no_cores)
45 registerDoParallel(cl) 46 registerDoParallel(cl)
46 47
47 result <- foreach(i=1:nrow(successive_usms_tab), 48 result <- foreach(i=1:nrow(successive_usms_tab),
48 .packages = c("SticsRFiles", "SticsOnR") ) %dopar% { 49 .packages = c("SticsRFiles", "SticsOnR") ) %dopar% {