#Get path for example data
path = system.file("extdata", package = "QuICSeedR")
#Helper function
add_underscore <- function(text) {
gsub("([a-zA-Z])(\\d)", "\\1_\\2", text)
}
#Read in data
elkear = BulkReadMARS(path = path,
plate_subfix = 'plate',
raw_subfix = 'raw',
helper_func = add_underscore)
#Set up parameters for batch analysis
params = list(
CleanMeta = list(split_content = TRUE, split_into = c('region', 'sample')),
GetCalculation = list(cycle_background = 5, norm = TRUE, norm_ct = 'Pos',
sd_fold = 10, time_skip = 5),
GetAnalysis = list(control = "Neg")
)
#Get results
results = BulkProcessing(data =elkear, params = params)
str(results)
Run the code above in your browser using DataLab