## load library
library("MALDIquant");
## load example data
data("sA1", package="MALDIquant");
## remove baseline
b <- lapply(sA1, removeBaseline);
## calibrate using TIC
s <- calibrate(b, method="TIC");
## show intensity details
summary(intensity(b[[1]])); ## no calibration
summary(intensity(s[[1]])); ## TIC calibrationRun the code above in your browser using DataLab