## load library
library("MALDIquant");
movingAverage(rep(1:5, times=2), halfWindowSize=2);
# NA NA 3 3 3 3 3 3 NA NA
## load example data
data("fiedler2009subset", package="MALDIquant");
## smooth spectra
s <- transformIntensity(fiedler2009subset, movingAverage, halfWindowSize=2);Run the code above in your browser using DataLab