\name{sysptmGENEID}
\alias{sysptmGENEID}
\title{Map SysPTM protein identifier to Entrez gene identifier} 
\description{
  sysptmGENEID maps SysPTM protein identifiers to Entrez Gene identifiers.
}
\details{
  Mappings were based on data provided by: SysPTM (\url{http://www.biosino.org/papers/SysPTM/Current/ptm ; http://www.biosino.org/papers/SysPTM/Current/name ; http://www.biosino.org/papers/SysPTM/Current/Protein_ID_equal}) on
  v1.1, 2008-11-20  
}

\examples{
	xx <- as.list(sysptmGENEID)
	if(length(xx) > 0){
		# Get the value of the first key
		xx[[1]]
		# Get the values for a few keys
		if(length(xx) >= 3){
			xx[1:3]
		}
	}
}