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