# rBiasCorrection: Benchmarking

#### 2022-06-20

    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")

# Available Cores

    future::availableCores()

# Benchmarking

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

    results_multi