\HeaderA{sumStats}{A function to calculate some summary statistics between an two
interactomes}{sumStats}
\keyword{datagen}{sumStats}
\begin{Description}\relax
This function takes in a named list of in silico interactomes (by its
incidence matrix representation of the bi-partite graph). The function
compares each interactome pairwise (with itself as well as with each
other interactome) and generates some summary statistics: e.g. the
number of redundant protein complexes, the number of protein
sub-complexes one interactome may posses with respect to some other
interactome (possibly itself), etc.
\end{Description}
\begin{Usage}
\begin{verbatim}
sumStats(imList, pathToSave = NULL)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{imList}] A named list of in silic interactomes (incidence matrix)
\item[\code{pathToSave}] A character vector of a path location to where the
summary statistics will be saved
\end{ldescription}
\end{Arguments}
\begin{Value}
\begin{ldescription}
\item[\code{redundantM}] A symmetric matrix with the row and column names
named by the interactome names. The shows the number of redundancies
(i.e. the number of repeated protein complexes) within two
interactomes
\item[\code{subM}] A matrix with the row and column names
named by the interactome names. Each entry details how many protein
sub-complexes are found within the interactome indexed by the row
with respect to the interactome indexed by the column
\end{ldescription}
\end{Value}
\begin{Author}\relax
TC
\end{Author}
\begin{Examples}
\begin{ExampleCode}
#gavin <- getAPMSData("Gavin")
#krogan <- getAPMSData("Krogan")
#imList <- vector("list", length=2)
#imList[[1]] <- gavin
#imList[[2]] <- krogan
#names(imList) <- c("Gavin", "Krogan")

#sumStats(imList)

\end{ExampleCode}
\end{Examples}

