## load library
library("readBrukerFlexData")
## get examples directory
exampleDirectory <- system.file("Examples", package="readBrukerFlexData")
## read example spectra
spec <- mqReadBrukerFlex(file.path(exampleDirectory,
"2010_05_19_Gibb_C8_A1"))
## plot spectra
par(mfrow=c(2, 1))
lapply(spec, plot)
par(mfrow=c(1, 1))Run the code above in your browser using DataLab