## load library
library("MALDIquant");
## load readBrukerFlexData library for fid file import
## (is also done automatically by importSingleSpectrum)
library("readBrukerFlexData");
## get examples directory
exampleDirectory <- system.file("Examples", package="readBrukerFlexData");
## read example spectrum
s <- importSingleSpectrum(file.path(exampleDirectory,
"2010_05_19_Gibb_C8_A1/0_A1/1/1SLin/fid"));
## plot spectrum
plot(s);
## estimate baseline
b <- estimateBaseline(s);
## draw baseline on the plot
lines(b, col="red");Run the code above in your browser using DataLab