## load library
library("MALDIquant")
## load example data
data("fiedler2009subset", package="MALDIquant")
## run a typical workflow
## transform intensities
s <- transformIntensity(fiedler2009subset, sqrt)
## smooth spectra
s <- transformIntensity(s, movingAverage)
## remove baseline
s <- removeBaseline(s)
## detect peaks
p <- detectPeaks(s)
## create an interactive plot for the first spectrum
iplot(s[[1]])
## create an interactive plot for the first spectrum
## and its corresponding peaks
iplot(s[[1]], p[[1]])
## create an interactive plot all 16 example spectra
## and their corresponding peaks
iplot(s, p)Run the code above in your browser using DataLab