myFragmentIon <- function (b, y) {
Hydrogen <- 1.007825
Oxygen <- 15.994915
Nitrogen <- 14.003074
b1_ <- (b )
y1_ <- (y )
b2_ <- (b + Hydrogen) / 2
y2_ <- (y + Hydrogen) / 2
b3_ <- (b + 2 * Hydrogen) / 3
y3_ <- (y + 2 * Hydrogen) / 3
return( cbind(b1_, y1_, b2_, y2_, b3_, y3_) )
}
peptideStd.ionLib <- genSwathIonLib(data=peptideStd,
data.fit=peptideStd.redundant,
fragmentIonFUN=myFragmentIon)
summary(peptideStd.ionLib)
idx<-40
op <- par(mfrow = c(2,1))
plot(peptideStd.ionLib)
text(rt.input(peptideStd.ionLib)[idx],
rt.normalized(peptideStd.ionLib)[idx],
"X", cex=1.5)
plot(ionlibrary(peptideStd.ionLib)[[idx]])
write.spectronaut(peptideStd.ionLib,
file="peptideStd.ionLib.csv")
Run the code above in your browser using DataLab