if (require(metaMSdata)) {
## load the manually curated table for the standards
data(exptable)
## add location of cdf file from which the standards DB is going to be
## built - this depends on your platform and requires the metaMSdata package
cdfpath <- system.file("extdata", package = "metaMSdata")
## files
files <- list.files(cdfpath, "_RP_", full.names=TRUE)
## get the complete names for the files
exptable$stdFile <-
sapply(exptable$stdFile,
function(x)
files[grep(x,files)])
## Not run:
# ## load the settings for the analysis
# data(FEMsettings)
#
# ## set the minimum number of features to 2
# metaSetting(Synapt.RP, "DBconstruction")$minfeat <- 2
#
# ## create the DB
# LCDBtest <- createSTDdbLC(stdInfo=exptable,
# settings = Synapt.RP,
# polarity = "positive",
# Ithr = 20)
# ## End(Not run)
## saved in "LCDBtest.RData" in the data directory of the metaMS
## package
}
Run the code above in your browser using DataLab