# NOT RUN {
f <- system.file("extdata", "optima.log", package="COMBIA")
fileDF <- readFile(filename = f, separator = "\t", noofrows_skip=0,
platetype = "384")
Generatedbarcode <- Generatedbarcode <- extractKey(keyposition = 2,
rawdata = fileDF, numberofrowsperplate = 17, doubleplateexperiment = TRUE)
hashedplates <- selectPlate(rawdata = fileDF,
processedbarcode = Generatedbarcode, numberofrowsperplate=17,
selectionkey="65000", doubleplateexperiment = TRUE )
# }
Run the code above in your browser using DataLab