library(rBiasCorrection)

samplelocusname <- "CDH1"
seed <- 1234


data.table::fwrite(
  rBiasCorrection::example.data_experimental$dat,
  paste0(tempdir(), "/experimental_data.csv")
)
data.table::fwrite(
  rBiasCorrection::example.data_calibration$dat,
  paste0(tempdir(), "/calibration_data.csv")
)

experimental <- paste0(tempdir(), "/experimental_data.csv")
calibration <- paste0(tempdir(), "/calibration_data.csv")

future::availableCores()

results_multi <- microbenchmark::microbenchmark({
  rBiasCorrection::biascorrection(
    experimental = experimental,
    calibration = calibration,
    samplelocusname = samplelocusname,
    plotdir = plotdir,
    csvdir = csvdir,
    seed = seed
  )},
  times = times
)

results_multi