## load library
library("MALDIquant");
## create a MassPeaks object
p <- createMassPeaks(mass=1:5, intensity=1:5);
## simple warping function (see determineWarpingFunctions for details)
simpleWarp <- function(x) { return(1); }
## run warping function
w <- warpMassPeaks(p, simpleWarp);
## compare results
all(mass(w) == mass(p)+1); # TRUERun the code above in your browser using DataLab