data(LCresults)
names(LCresults)
## Not run:
# ## load the settings for the analysis
# data(FEMsettings)
#
# ## load the annotation DB
# data(LCDBtest)
#
# ## load the Synapt Q-TOF error function
# data(errf)
#
# results.xset <- runLC(xset = LCresults$xset, settings = Synapt.RP,
# DB = LCDBtest$DB)
#
# ## to start directly from the CDF files and include peak picking in the
# ## pipeline, simply provide the "files" argument rather than the "xset" argument
#
# if (require(metaMSdata)) {
# ## get the path
# cdfpath <- system.file("extdata", package = "metaMSdata")
#
# ## files
# files <- list.files(cdfpath, "_RP_", full.names=TRUE)
#
# ## <------------- Use the Synapt Q-TOF error function -------------- >
# result.adaptive <- runLC(files, settings = Synapt.RP,
# DB = LCDBtest$DB, errf = errf)
#
# ## <-------- Run the analysis with a fixed mass tolerance --------- >
# result.fixed <- runLC(files, settings = Synapt.RP,
# DB = LCDBtest$DB)
# }
# ## End(Not run)
Run the code above in your browser using DataLab