Update calibrateMuso.R

This commit is contained in:
MilanFischer 2024-04-13 00:57:34 +02:00 committed by GitHub
parent e865097472
commit 5de8f2a23c
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -17,9 +17,7 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
maxLikelihoodEpc=TRUE,
pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){
# Explicitly specify the environment in the multisession call
plan <- future::multisession(workers = numCores, envir = environment())
future::plan(plan)
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="preservedCalib.csv", recursive = TRUE, full.names=TRUE))
unlink(file.path(settings$inputLoc,"thread"),recursive=TRUE)