## Not run:
# if (require(metaMSdata)) {
# ## Sitation A: create a DB of standards.
# ## first tell the system where to look
# data(threeStdsInfo)
# all.files <- list.files(system.file("extdata", package = "metaMSdata"),
# pattern = "_GC_", full.names = TRUE)
# stdInfo[,"stdFile"] <- rep(all.files[3], 3)
#
# data(FEMsettings) ## provides a.o. TSQXLS.GC, the GC settings file
# data(threeStdsNIST) ## provides object smallDB, excerpt from NIST DB
#
# DB <- createSTDdbGC(stdInfo, TSQXLS.GC, extDB = smallDB)
# }
# ## saved in "threeStdsDB.RData" in the data directory of the metaMS
# ## package
#
# ## Situation B: do not check the data with an external database. Now
# ## the fields bestDBmatch and validation will be absent.
# DB <- createSTDdbGC(stdInfo, TSQXLS.GC, extDB = NULL)
#
# ## Situation C: create a DB directly from an msp file (manual DB)
# manual.fname <- list.files(system.file("extdata", package = "metaMSdata"),
# pattern = "msp", full.names = TRUE)
# manual <- read.msp(manual.fname)
# DB <- createSTDdbGC(stdInfo = NULL, settings = TSQXLS.GC,
# manualDB = manual)
# ## End(Not run)
Run the code above in your browser using DataLab