Mercurial > repos > siwaa > redelac_stics_s

annotate redelacSticsSimulator.R @ 3:f262814e48a3 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/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
author siwaa
date Mon, 26 Jun 2023 17:25:19 +0000
parents ea8e91473dc8
children 70ae7516e925
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
1 library(SticsRFiles)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
2 library(SticsOnR)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
3 library(parallel)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
4 library(doParallel)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
5 library(readxl)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
6
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
7 workspace <- paste0(getwd(), "/WS")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
8 javastics_path <- getwd()
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
9 default_config_path <- paste0(javastics_path, "/config")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
10
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
11 # copy of the var.mod and rap.mod into the config folder
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
12 # generalizing maybe should be inside a config folder
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
13
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
14 #file.copy(from = file.path(workspace, "var.mod"),
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
15 # to = file.path(default_config_path, "var.mod"),
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
16 # overwrite = TRUE)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
17 #file.copy(from = file.path(workspace, "rap.mod"),
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
18 # to = file.path(default_config_path, "rap.mod"),
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
19 # overwrite = TRUE)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
20
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
21 txt_path <- paste0(getwd(), "/WS/txt_files")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
22 #dir.create(txt_path,recursive = T)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
23
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
24 #gen_usms_xml2txt(javastics = javastics_path,
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
25 # workspace = workspace,
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
26 # out_dir = txt_path,
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
27 # check = FALSE)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
28
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
29 print("==================================")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
30
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
31 print(paste0("Cores=", detectCores()))
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
32 print(paste0("javastics=", javastics_path))
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
33 print(paste0("ws=", workspace))
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
34 print(paste0("out_dir=", txt_path))
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
35
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
36 print("==================================")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
37
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
38
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
39 # List of successive USMs
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
40 successive_usms_file <- ("successionPlan.csv")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
41 successive_usms_tab <- read.csv(file = file.path(workspace, successive_usms_file), sep =";")
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
42
3
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
43 #no_cores <- detectCores() - 1
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
44 #no_cores <- 10
3
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
45 #cl <- makeCluster(no_cores)
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
46 #registerDoParallel(cl)
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
47
3
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
48 result <- list()
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
49
3
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
50 #result <- foreach(i=1:nrow(successive_usms_tab),
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
51 # .packages = c("SticsRFiles", "SticsOnR") ) %dopar% {
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
52 for(i in 1:nrow(successive_usms_tab)) {
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
53
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
54 print(paste("coucou ", i))
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
55 nusms <- as.numeric(successive_usms_tab[i,2])
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
56 print(paste0("coco ", nusms))
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
57
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
58 vec <- as.character(successive_usms_tab[i,c(3:(2+nusms))])
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
59
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
60 list_successive_usms <- list(vec)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
61
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
62 sim_options <- stics_wrapper_options(javastics = javastics_path,
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
63 stics_exe = paste0(javastics_path,"/bin/stics_modulo"),
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
64 workspace = txt_path,
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
65 verbose = TRUE,
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
66 successive = list_successive_usms)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
67 list_usms <- vec
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
68
3
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
69 result = append(result, stics_wrapper(model_options = sim_options, situation = list_usms))
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
70 }
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
71
3
f262814e48a3 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"
siwaa
parents: 2
diff changeset
72 #stopCluster(cl)
2
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
73
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
74 for (i in 1:nrow(successive_usms_tab)) { #i=1
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
75 if (i == 1) {
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
76 simPCP <- result[[i]]
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
77 } else {
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
78 simPCP$sim_list <- c(simPCP$sim_list, result[[i]]$sim_list)
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
79 }
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
80
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
81 }
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
82
ea8e91473dc8 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4/tools/REDELACSticsSimulator commit 4c3e6dc71284e3eecf1cfa8402aaf12dc49c1ee4-dirty"
siwaa
parents:
diff changeset
83 save(simPCP, file = "results.RData")