data(ibspiked_set1)
data(noise.model.hcd)
ceru.human <- protein.g(proteinGroup(ibspiked_set1),"CERU_HUMAN")
ceru.rat <- protein.g(proteinGroup(ibspiked_set1),"CERU_RAT")
ceru.mouse <- protein.g(proteinGroup(ibspiked_set1),"CERU_MOUSE")
ceru.proteins <- c(ceru.human,ceru.rat,ceru.mouse)
## Calculate ratio based on all spectra of peptides specific
## to CERU_HUMAN, CERU_RAT or CERU_MOUSE. Returns a named
## numeric vector.
10^estimateRatio(ibspiked_set1,noise.model.hcd,
channel1="114",channel2="115",
protein=ceru.proteins)['lratio']
## If argument 'combine=FALSE', estimateRatio returns a data.frame
## with one row per protein
10^estimateRatio(ibspiked_set1,noise.model.hcd,
channel1="114",channel2="115",
protein=ceru.proteins,combine=FALSE)[,'lratio']
## spiked material channel 115 vs 114:
## CERU_HUMAN (P00450): 1
## CERU_RAT (P13635): 2
## CERU_MOUSE (Q61147): 0.5
Run the code above in your browser using DataLab