## load library
library("MALDIquant")
## 5 point moving average
movingAverage(rep(1:5, times=2), halfWindowSize=2)
# 3 3 3 3 3 3 3 3 3 3
## 9 point moving average
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 <- transformIntensity(fiedler2009subset, movingAverage, halfWindowSize=2)Run the code above in your browser using DataLab