\name{org.Rn.crossSEQ}
\alias{org.Rn.crossSEQ}
\title{Map protein identifier to the protein sequence}
\description{
  org.Rn.crossSEQ provides mappings between a 
  protein identifier and the protein Sequence. 
}
\details{
  Mappings were based on data provided by: 
  \url{ftp://ftp.ebi.ac.uk/pub/databases/uniprot/knowledgebase/uniprot_sprot.fasta.gz ; ftp://ftp.ebi.ac.uk/pub/databases/IPI/current/ipi.RAT.fasta.gz ; ftp://ftp.ncbi.nih.gov/refseq/R_norvegicus/mRNA_Prot/rat.protein.faa.gz}) on UniProtKB/Swiss-Prot Release 56.9 of 03-Mar-2009 ; Rattus norvegicus 3.56, 3 Mar 2009 ; March 10, 2008   
}

\examples{
  x <- org.Rn.crossSEQ
  # Get the protein identifiers that are mapped to protein sequence.
  mapped_proteins <- mappedkeys(x)
  # Convert to a list
  xx <- as.list(x[mapped_proteins])	
  # randomly display 10 proteins
  sample(xx, 10)
}