queue <- create_queue(
date = c("200722"),
instrument = c("EX1"),
user = c("jquast"),
measurement_type = c("DIA"),
experiment_name = c("JPQ031"),
digestion = c("LiP", "tryptic control"),
treatment_type_1 = c("EDTA", "H2O"),
treatment_type_2 = c("Zeba", "unfiltered"),
treatment_dose_1 = c(10, 30, 60),
treatment_unit_1 = c("min"),
n_replicates = 4,
number_runs = FALSE,
organism = c("E. coli"),
exclude_combinations = list(list(
treatment_type_1 = c("H2O"),
treatment_type_2 = c("Zeba", "unfiltered"),
treatment_dose_1 = c(10, 30)
)),
inj_vol = c(2),
data_path = "D:\\2007_Data",
method_path = "C:\\Xcalibur\\methods\\DIA_120min",
position_row = c("A", "B", "C", "D", "E", "F"),
position_column = 8,
blank_every_n = 4,
blank_position = "1-V1",
blank_method_path = "C:\\Xcalibur\\methods\\blank"
)
head(queue, n = 20)
randomised_queue <- randomise_queue(
data = queue,
export = FALSE
)
head(randomised_queue, n = 20)
Run the code above in your browser using DataLab