Mercurial > repos > siwaa > redelac_stics_s

comparison parallelSticsRRotation.R @ 1:be10e3fb6e64 draft

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:22:04 +0000
parents ca96540c23cd
children
comparison
equal deleted inserted replaced
0:ca96540c23cd 1:be10e3fb6e64
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), sep =";") 41 successive_usms_tab <- read.csv(file = file.path(workspace, successive_usms_file), sep =";")
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% {