pep1 <- c(pe1="KPEPTI")
# The table of possible terminal fragments (for simplicity terminal only)
pepTab1 <- makeFragments(pep1, min=3, max=7, internFra=FALSE)
specModif1 <- list(modOrigin=pep1, modPos=1, modMass=579.9663, modName="p", modFixed=FALSE)
.singleSpecModif(pepTab1, specModif1 )
protP <- c(protP="PEPTIDEKR")
pep1 <- c("PTI","KPE","EPTI")
papTab1 <- cbind(no=c(7,2,6),seq=pep1, orig=rep("KPEPTI",3), origNa=rep("pe1",3),
ty=paste0(c("C","N","C"),"ter"), beg=c(4,1,3), end=c(6,3,4),
mass= wrProteo::convAASeq2mass(pep1, massTy="mono"), modSpec="")
Run the code above in your browser using DataLab