## example protein database
data(p, package = "Pbase")
## digest proteins into peptides
cleavedProteins <- cleave(p)
## find spike-ins for the peptides of interest
calculateHeavyLabels(cleavedProteins,
peptides = c(A4UGR9 = "MEGFHIK",
A4UGR9 = "QGNMYTLSK",
A6H8Y1 = "GSTASNPQR"))
Run the code above in your browser using DataLab