## load library
library("MALDIquant")
## load example data
data("fiedler2009subset", package="MALDIquant")
## show TIC in spectrum 1
totalIonCurrent(fiedler2009subset[[1]]) # 90312326
## set TIC to 1 in all spectra
sTIC <- standardizeTotalIonCurrent(fiedler2009subset)
## show TIC in spectrum 1
totalIonCurrent(sTIC[[1]]) # 1Run the code above in your browser using DataLab