## 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(list(p), list(simpleWarp))[[1]];
## compare results
all(mass(w) == mass(p)+1); # TRUERun the code above in your browser using DataLab