## As used in the workflow:
## Not run: %
# w@spectra <- lapply(w@spectra, function(spec)
# analyzeMsMs(spec, mode="pH", detail=TRUE, run="recalibrated", cut=0, cut_ratio=0 ) )
# w@aggregate <- aggregateSpectra(w@spectra)
# ## End(Not run)
Run the code above in your browser using DataLab