data(exampleMS)
	scales <- seq(1, 64, 3)
	wCoefs <- cwt(exampleMS, scales=scales, wavelet='mexh')
	
	localMax <- getLocalMaximumCWT(wCoefs)
	ridgeList <- getRidge(localMax)
	
	SNR.Th <- 3
	majorPeakInfo <- identifyMajorPeaks(exampleMS, ridgeList, wCoefs, SNR.Th=SNR.Th)
	## Plot the identified peaks
	peakIndex <- majorPeakInfo$peakIndex
	plotPeak(exampleMS, peakIndex, main=paste('Identified peaks with SNR >', SNR.Th)) 
	
Run the code above in your browser using DataLab