\HeaderA{hom.Sc.inpHOMSA}{Map between IDs for genes in one organism to their predicted
paralogs in another}{hom.Sc.inpHOMSA}
\aliasA{hom.Sc.inpAEDAE}{hom.Sc.inpHOMSA}{hom.Sc.inpAEDAE}
\aliasA{hom.Sc.inpANOGA}{hom.Sc.inpHOMSA}{hom.Sc.inpANOGA}
\aliasA{hom.Sc.inpAPIME}{hom.Sc.inpHOMSA}{hom.Sc.inpAPIME}
\aliasA{hom.Sc.inpARATH}{hom.Sc.inpHOMSA}{hom.Sc.inpARATH}
\aliasA{hom.Sc.inpBOSTA}{hom.Sc.inpHOMSA}{hom.Sc.inpBOSTA}
\aliasA{hom.Sc.inpCAEBR}{hom.Sc.inpHOMSA}{hom.Sc.inpCAEBR}
\aliasA{hom.Sc.inpCAEEL}{hom.Sc.inpHOMSA}{hom.Sc.inpCAEEL}
\aliasA{hom.Sc.inpCAERE}{hom.Sc.inpHOMSA}{hom.Sc.inpCAERE}
\aliasA{hom.Sc.inpCANFA}{hom.Sc.inpHOMSA}{hom.Sc.inpCANFA}
\aliasA{hom.Sc.inpCANGL}{hom.Sc.inpHOMSA}{hom.Sc.inpCANGL}
\aliasA{hom.Sc.inpCIOIN}{hom.Sc.inpHOMSA}{hom.Sc.inpCIOIN}
\aliasA{hom.Sc.inpCRYNE}{hom.Sc.inpHOMSA}{hom.Sc.inpCRYNE}
\aliasA{hom.Sc.inpDANRE}{hom.Sc.inpHOMSA}{hom.Sc.inpDANRE}
\aliasA{hom.Sc.inpDEBHA}{hom.Sc.inpHOMSA}{hom.Sc.inpDEBHA}
\aliasA{hom.Sc.inpDICDI}{hom.Sc.inpHOMSA}{hom.Sc.inpDICDI}
\aliasA{hom.Sc.inpDROME}{hom.Sc.inpHOMSA}{hom.Sc.inpDROME}
\aliasA{hom.Sc.inpDROPS}{hom.Sc.inpHOMSA}{hom.Sc.inpDROPS}
\aliasA{hom.Sc.inpENTHI}{hom.Sc.inpHOMSA}{hom.Sc.inpENTHI}
\aliasA{hom.Sc.inpESCCO}{hom.Sc.inpHOMSA}{hom.Sc.inpESCCO}
\aliasA{hom.Sc.inpFUGRU}{hom.Sc.inpHOMSA}{hom.Sc.inpFUGRU}
\aliasA{hom.Sc.inpGALGA}{hom.Sc.inpHOMSA}{hom.Sc.inpGALGA}
\aliasA{hom.Sc.inpGASAC}{hom.Sc.inpHOMSA}{hom.Sc.inpGASAC}
\aliasA{hom.Sc.inpKLULA}{hom.Sc.inpHOMSA}{hom.Sc.inpKLULA}
\aliasA{hom.Sc.inpMACMU}{hom.Sc.inpHOMSA}{hom.Sc.inpMACMU}
\aliasA{hom.Sc.inpMONDO}{hom.Sc.inpHOMSA}{hom.Sc.inpMONDO}
\aliasA{hom.Sc.inpMUSMU}{hom.Sc.inpHOMSA}{hom.Sc.inpMUSMU}
\aliasA{hom.Sc.inpORYSA}{hom.Sc.inpHOMSA}{hom.Sc.inpORYSA}
\aliasA{hom.Sc.inpPANTR}{hom.Sc.inpHOMSA}{hom.Sc.inpPANTR}
\aliasA{hom.Sc.inpRATNO}{hom.Sc.inpHOMSA}{hom.Sc.inpRATNO}
\aliasA{hom.Sc.inpSACCE}{hom.Sc.inpHOMSA}{hom.Sc.inpSACCE}
\aliasA{hom.Sc.inpSCHPO}{hom.Sc.inpHOMSA}{hom.Sc.inpSCHPO}
\aliasA{hom.Sc.inpTETNI}{hom.Sc.inpHOMSA}{hom.Sc.inpTETNI}
\aliasA{hom.Sc.inpXENTR}{hom.Sc.inpHOMSA}{hom.Sc.inpXENTR}
\aliasA{hom.Sc.inpYARLI}{hom.Sc.inpHOMSA}{hom.Sc.inpYARLI}
\keyword{datasets}{hom.Sc.inpHOMSA}
\begin{Description}\relax
A map of this type is an R object that provides mappings between
identifiers for genes in the package organism and their predicted
paralogs in the map that the organism is named after.  So for example,
if the inparanoid package is the human package, then the
hom.Sc.inpRATNO map would provide mappings between human and rat.
\end{Description}
\begin{Details}\relax
Mappings between gene identifiers and their paralogs as predicted by
the Inparanoid algorithm.  The map filters out paralogs that have an
Inparanoid score less than 100

Mappings are normally given from the ID of the organism in the
package to the IDs of the organism listed in the map name.

Reversal can be made of ANY map by using the function revmap (see
examples below).

Names for these maps are done in the "INPARANOID style" which means
that they are normally the 1st three letters of the genus followed
by the 1st two letters of the species.  For example: "Mus musculus"
becomes "MUSMU", "Homo sapiens" becomes "HOMSA", "Monodelphis
domestica" becomes "MONDO" etc. This means that for most of these
organisms it will be possible to easily guess the abbreviations
used.  An exception may occur in the future if a new model organism
has a very similar genus and species name to an existing one.
\end{Details}
\begin{References}\relax
\url{http://inparanoid.sbc.su.se/download/current/sqltables}
\end{References}
\begin{Examples}
\begin{ExampleCode}
        x <- hom.Sc.inpAPIME
        # Get honeybee IDs that are paralogous to the pkg IDs
        mapped_IDs <- mappedkeys(x)
        # Convert to a list
        xx <- as.list(x[mapped_IDs])
        if(length(xx) > 0) {
          # Get the paralogs for the first five genes
          xx[1:5]
          # Get the first one
          xx[[1]]
        }

        #Now for the reverse map (honeybee IDs back to pkg paralog)
        x <- revmap(hom.Sc.inpAPIME)
        mapped_IDs <- mappedkeys(x)
        # Convert to a list
        xx <- as.list(x[mapped_IDs])
        if(length(xx) > 0) {
          # Get the paralogs for the first five IDs
          xx[1:5]
          # Get the first one
          xx[[1]]
        }         

    ## Not run: 
        #For the most common organisms, we try to ensure that you can
        #map back to an Entrez Gene ID by providing you with necessary
        #maps in the related organism based annotation packages.  The
        #following example shows how to get from an Entrez Gene ID for
        #Human to Entrez Gene IDs for Mouse even though inparanoid does
        #not map to Entrez Gene IDs for either of these species.

        #You will have to include the appropriate packages for
        #humans:
        library("org.Hs.eg.db")
        #and for mouse:
        library("org.Mm.eg.db")
        #And of course you will need the inparanoid package:
        library("hom.Hs.inp.db")

        #Start with some Human Entrez Gene IDs
        humanEGIds <- c("4488","4487")

        #Inparanoid uses ensembl protein IDs so start with
        #those. Notice that there will be many protein IDs returned for
        #a typical gene since there are many possible translations.
        humanProtIds <- mget(humanEGIds,org.Hs.egENSEMBLPROT)

        #Map the IDs that we can from inparanoid. Notice that by design,
        #inparanoid only represents each gene product with a single
        #translation product. Therefore your list could slim down a lot
        #during this step.  Also, if the thing you are trying to match
        #up at this step has less than 100% seed status, you will not
        #find it in this step.
        rawMouseProtIds <- mget(unlist(humanProtIds),hom.Hs.inpMUSMU,ifnotfound=NA)
        #This also means that we need to clean up the NAs from our result
        mouseProtIds <- rawMouseProtIds[!is.na(rawMouseProtIds)]

        #Then use the mouse organism based packages to convert these IDs
        #back to an Entrez Gene ID again (this time for mouse). 
        mouseEGIds <- mget(unlist(mouseProtIds),org.Mm.egMGI2EG,ifnotfound=NA)

        #Now go ahead and have a look at the output
        mouseEGIds
    ## End(Not run)

\end{ExampleCode}
\end{Examples}

