1
\name{readBrukerFlexDir}
2
\alias{readBrukerFlexDir}
3
\title{Reads recursively mass spectrometry data in Bruker Daltonics' XMASS format.}
5
readBrukerFlexDir(brukerFlexDir,
6
removeCalibrationScans = TRUE, removeMetaData = FALSE,
7
useHpc = TRUE, useSpectraNames = TRUE,
8
filterZeroIntensities = FALSE, verbose = FALSE)
11
\item{brukerFlexDir}{\code{character}, path to
12
\emph{directory} which should be read recursively.}
14
\item{removeCalibrationScans}{\code{logical}, if
15
\code{TRUE} all scans in directories called
16
\code{[Cc]alibration} will be ignored.}
18
\item{removeMetaData}{\code{logical}, to calculate mass
19
data a lot of meta data are needed. To save memory they
20
could be deleted after calculation.}
22
\item{useHpc}{\code{logical}, should Bruker Daltonics'
23
High Precision Calibration be used if available? (see
24
also: \code{\link[readBrukerFlexData]{.hpc}})}
26
\item{useSpectraNames}{\code{logical}, if \code{TRUE} all
27
list elements get an unique name from metaData otherwise
28
file path is used. (If \sQuote{removeMetaData} is
29
\code{TRUE} \sQuote{useSpectraNames} has no effect.)}
31
\item{filterZeroIntensities}{\code{logical}, don't change
32
it. If \code{TRUE} all intensities equal \code{0.0} are
34
\code{\link[readBrukerFlexData]{readBrukerFlexFile}})}
36
\item{verbose}{\code{logical}, print verbose messages?}
39
A \code{list} of spectra. \itemize{
40
\item{\code{[[1]]$spectrum$mass}: }{A vector of
41
calculated mass.} \item{\code{[[1]]$spectrum$intensity}:
42
}{A vector of intensity values.}
43
\item{\code{[[1]]$metaData}: }{A list of metaData
44
depending on read spectrum.} }
47
This function leads recursively all mass spectrometry
48
data in Bruker Daltonics' XMASS format in a specified
52
See \code{\link[readBrukerFlexData]{readBrukerFlexFile}}.
56
library("readBrukerFlexData")
58
## get examples directory
59
exampleDirectory <- system.file("Examples", package="readBrukerFlexData")
61
## read example spectra
62
spec <- readBrukerFlexDir(file.path(exampleDirectory,
63
"2010_05_19_Gibb_C8_A1"))
66
plot(spec[[1]]$spectrum$mass, spec[[1]]$spectrum$intensity, type="n")
69
legendStr <- character(l)
70
for (i in seq(along=spec)) {
71
lines(spec[[i]]$spectrum$mass, spec[[i]]$spectrum$intensity, type="l",
73
legendStr[i] <- spec[[i]]$metaData$fullName
77
legend(x="topright", legend=legendStr, col=rainbow(l), lwd=1)
80
\code{\link[readBrukerFlexData]{readBrukerFlexFile}},
81
\code{\link[readBrukerFlexData]{.hpc}}