## Not run:
# data(ib_phospho)
# ptm.info.np <- getPtmInfoFromNextprot(proteinGroup(ib_phospho))
# ptm.info.np <- ptm.info.np[grep("Phospho",ptm.info.np$modification.name),]
# ptm.info.psp <- getPtmInfoFromPhosphoSitePlus(proteinGroup(ib_phospho),modif="PHOS")
#
# str(ptm.info.np)
# str(ptm.info.psp)
#
# ## End(Not run)
Run the code above in your browser using DataLab