tbl <- data.frame(spectrum=1:14,peptide=c(rep(letters[1:3],4),"a","x"),
modif=":",start.pos=1,
protein=c(rep(c("A","B"),each=6),"C","D"))
pg <- ProteinGroup(tbl)
pg
proteinGroupTable(pg)
data(ibspiked_set1)
pg <- proteinGroup(ibspiked_set1)
ceru.proteins <- protein.g(pg,"CERU")
## all ceru peptides
peptides(pg,ceru.proteins)
## peptides shared by all ceru proteins
peptides(pg,ceru.proteins, set=intersect)
Run the code above in your browser using DataLab