## load package
library("MALDIquant")
## load example data
data("fiedler2009subset", package="MALDIquant")
## baseline correction
b <- removeBaseline(fiedler2009subset)
## calibrate intensity values
calibrateIntensity(b, method="TIC")Run the code above in your browser using DataLab