## load package
library("MALDIquant")
## 9 point moving average
MALDIquant:::.movingAverage(rep(1:5, times=2), halfWindowSize=4)
# 2.778 2.778 2.778 2.778 2.778 3.222 3.222 3.222 3.222 3.222
## load example data
data("fiedler2009subset", package="MALDIquant")
## smooth spectra
s <- smoothIntensity(fiedler2009subset, method="MovingAverage",
halfWindowSize=2)Run the code above in your browser using DataLab