data(ibspiked_set1)
pg <- proteinGroup(ibspiked_set1)
protein.gs <- protein.g(pg,"CERU")
sc <- spectra.count2(ibspiked_set1,protein.gs)
sc.ik <- spectra.count2(ibspiked_set1,protein.gs,modif="iTRAQ4plex_K")
rbind(spectra.counts=sc,spectra.counts_iTRAQk=sc.ik)
Run the code above in your browser using DataLab