data(ibspiked_set1)
ibspiked_set1
head(reporterIntensities(ibspiked_set1))
head(reporterMasses(ibspiked_set1))
proteinGroup(ibspiked_set1)
isotopeImpurities(ibspiked_set1)
# create new object
set.seed(123)
data <- data.frame(spectrum=letters,
peptide=sample(c("pepA","pepB","pepC"),26,TRUE),
start.pos=1,
modif=sample(c("::X:::",":Y::::","::Z:::"),26,TRUE),
accession=c("protein1","protein2"))
data.ions <- matrix(rnorm(26*2,1000,50),
ncol=2,dimnames=list(letters,NULL))
data.mass <- matrix(rep(c(126.1,127.1),26),
ncol=2,byrow=TRUE,dimnames=list(letters,NULL))
ib <- new("TMT2plexSpectra",data,data.ions,data.mass)
ib
reporterIntensities(ib)
isotopeImpurities(ib) <- matrix(c(0.8,0.1,0.2,0.9),nrow=2)
reporterIntensities(correctIsotopeImpurities(ib))
Run the code above in your browser using DataLab