# NOT RUN {
## load package
library("MALDIquant")
## load example data
data("fiedler2009subset", package="MALDIquant")
## smooth spectra
s <- smoothIntensity(fiedler2009subset, method="MovingAverage",
halfWindowSize=2)
## or
s <- smoothIntensity(fiedler2009subset, method="MovingAverage",
halfWindowSize=2, weighted=TRUE)
## or
s <- smoothIntensity(fiedler2009subset, method="SavitzkyGolay",
halfWindowSize=10)
# }
Run the code above in your browser using DataLab