Mercurial > repos > siwaa > redelac_stics_t

comparison redelacSticsTool.R @ 21:5dcba002e019 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 commit f4dc738dafb446539137ec212af9191d6e03126d"
author siwaa
date Fri, 10 Jul 2026 15:02:33 +0000
parents 475aa4451308
children 15317ef4816b
comparison
equal deleted inserted replaced
20:475aa4451308 21:5dcba002e019
220 # Output part 220 # Output part
221 # 221 #
222 222
223 beforeOutputsTime <- Sys.time() 223 beforeOutputsTime <- Sys.time()
224 224
225 simPCPlist <- list()
226
225 for (j in 1:length(casesUpcSol)) { 227 for (j in 1:length(casesUpcSol)) {
226 228
227 successive_usms_tab_split[[j]]$Treatment <- NULL 229 successive_usms_tab_split[[j]]$Treatment <- NULL
228 successive_usms_tab_split[[j]]$Number_USM <- NULL 230 successive_usms_tab_split[[j]]$Number_USM <- NULL
229 splited <- strsplit(casesUpcSol[j], split = "-")[[1]] 231 splited <- strsplit(casesUpcSol[j], split = "-")[[1]]
230 232
231 upc <- splited[1] 233 upc <- splited[1]
232 234
233 sol <- splited[2] 235 sol <- splited[2]
234
235 simPCPlist <- list()
236 236
237 for (i in 1:nrow(successive_usms_tab_split[[j]])) { 237 for (i in 1:nrow(successive_usms_tab_split[[j]])) {
238 #i=1 238 #i=1
239 if (i == 1) { 239 if (i == 1) {
240 simPCP <- result[[j]][[i]] 240 simPCP <- result[[j]][[i]]