## 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, function(x)plot(x));
par(mfrow=c(1, 1));Run the code above in your browser using DataLab