Nothing
## This function gets the measured retention times and retention indecies
# of the RI standards to be used for retention time calibration
# The input is a csv file with the one column (RT) and one column o
getRIStandard <- function(file.name = character()) {
# read file
if (missing(file.name)) {
stop("A file name should be provided!")
}
dat <- read.csv(file = file.name, header = TRUE)
dat.names <- tolower(names(dat))
# generate ouput
rt <- dat[, match( "rt", dat.names)]
ri <- dat[, match( "ri", dat.names)]
RItable <- data.frame(rt = rt, ri = ri)
return(RItable)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.