if(require(pepDat)){
data(restab)
pt <- ProbeTrack(sequence = restab$peptide,
intensity = restab$group2,
probeStart = restab$start)
plotTracks(pt)
plotTracks(pt, from = 460, to = 560, legend=TRUE)
}
Run the code above in your browser using DataLab