## 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