if (require(metaMSdata)) {
## this will lead to the completed version of the R object that is also
## available by typing "data(threeStdsInfo)", now containing the
## directory information that is not available in the RData object.
input.file <- list.files(system.file("extdata", package = "metaMSdata"),
pattern = "csv", full.names = TRUE)
threeStdsInfo <- readStdInfo(input.file,
system.file("extdata", package = "metaMSdata"),
sep = ";", dec = ",")
## only one of the files is used to set up the database, the others
## are for testing annotation
}
Run the code above in your browser using DataLab