## generated as follow:
## load library
library("MALDIquant");
## load example data
data("spectra", package="MALDIquant");
## running typical workflow
## transform intensities
t<- lapply(spectra, transformIntensity, fun=sqrt);
## smoothing function
movingAvg <- function(y) {
return(filter(y, rep(1, 5)/5, sides=2));
}
## smooth spectra
s <- lapply(t, transformIntensity, fun=movingAvg);
## baseline correction
b <- lapply(s, removeBaseline);
## detect peaks
peaks <- lapply(b, detectPeaks);Run the code above in your browser using DataLab