Update calibrateMuso.R

This commit is contained in:
MilanFischer
2024-04-13 00:29:20 +02:00
committed by GitHub
parent 9fc504f5c8
commit f72e49a4a9
+1 -1
View File
@@ -16,7 +16,7 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
thread_prefix="thread", numCores, pb = txtProgressBar(min=0, max=iterations, style=3), thread_prefix="thread", numCores, pb = txtProgressBar(min=0, max=iterations, style=3),
maxLikelihoodEpc=TRUE, maxLikelihoodEpc=TRUE,
pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){ pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){
print(numCores)
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))