Compare commits

..

10 Commits

Author SHA1 Message Date
Roland Hollós
f515dcda51
Merge pull request #26 from MilanFischer/master
Too many processes started
2024-04-13 08:16:56 +02:00
Hollos Roland
abca8c1c86 Reverting to accept Milan Fischer's contribution
This reverts commit 30f2f4e0bc.
2024-04-13 07:55:15 +02:00
Hollos Roland
30f2f4e0bc Avoide starting too many process 2024-04-13 07:31:07 +02:00
MilanFischer
5de8f2a23c
Update calibrateMuso.R 2024-04-13 00:57:34 +02:00
MilanFischer
e865097472
Update calibrateMuso.R
Explicitly specify the environment in the multisession call
2024-04-13 00:51:18 +02:00
MilanFischer
5ef318324c
Update calibrateMuso.R 2024-04-13 00:38:28 +02:00
MilanFischer
6e9f31234e
Update calibrateMuso.R 2024-04-13 00:35:30 +02:00
MilanFischer
f72e49a4a9
Update calibrateMuso.R 2024-04-13 00:29:20 +02:00
MilanFischer
9fc504f5c8
Update calibrateMuso.R
numCores default value removed
2024-04-13 00:27:09 +02:00
MilanFischer
73ab5d43f3
Update calibrateMuso.R
numCores redefined
2024-04-13 00:19:19 +02:00

View File

@ -17,7 +17,7 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
maxLikelihoodEpc=TRUE, maxLikelihoodEpc=TRUE,
pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){ pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){
future::plan(future::multisession(workers = numCores)) future::plan(future::multisession, workers = numCores)
file.remove(list.files(path = settings$inputLoc, pattern="progress.txt", recursive = TRUE, full.names=TRUE)) file.remove(list.files(path = settings$inputLoc, pattern="progress.txt", recursive = TRUE, full.names=TRUE))
file.remove(list.files(path = settings$inputLoc, pattern="preservedCalib.csv", recursive = TRUE, full.names=TRUE)) file.remove(list.files(path = settings$inputLoc, pattern="preservedCalib.csv", recursive = TRUE, full.names=TRUE))
unlink(file.path(settings$inputLoc,"thread"),recursive=TRUE) unlink(file.path(settings$inputLoc,"thread"),recursive=TRUE)