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