library("MALDIquant")
library("MSclassifR")
## Load mass spectra and metadata
data("CitrobacterRKIspectra", "CitrobacterRKImetadata", package = "MSclassifR")
## Pre-processing of mass spectra
spectra <- SignalProcessing(CitrobacterRKIspectra)
## Detection of peaks in pre-processed mass spectra
peaks <- PeakDetection(x = spectra,
averageMassSpec = FALSE,
labels = CitrobacterRKImetadata$Strain_name_spot,
averageMassSpectraMethod = "median",
SNRdetection = 3,
binPeaks = TRUE,
halfWindowSizeDetection = 11,
AlignFrequency = 0.20,
AlignMethod = "strict",
Tolerance = 0.002)
# Plot peaks on a pre-processed mass spectrum
PlotSpectra(SpectralData=spectra[[1]],Peaks=peaks[[1]],col_spec="blue",col_peak="black")
Run the code above in your browser using DataLab