example(getPeaks)
bmkfile <- paste(tempdir(),"testbiomarker.csv",sep="/")
testBio <- pk2bmkr(peakfile, rtM, bmkfile)
## plot biomarker intensities of the 2 spectra
mzs <- as.numeric(rownames(rtM))
matplot(mzs, rtM, type="l", xlim=c(1000, 10000))
bks <- getMzs(testBio)
abline(v=bks, col="green")
Run the code above in your browser using DataLab