\HeaderA{reduceM}{Resize a matrix}{reduceM}
\keyword{data}{reduceM}
\keyword{manip}{reduceM}
\begin{Description}\relax
Resize a matrix to the number of rows commun to a vector.
\end{Description}
\begin{Usage}
\begin{verbatim}reduceM(x, mat, threshold=0)\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] Character or numeric vector.
\item[\code{mat}] Matrix sharing rownames with the supplied vextor x.
\item[\code{threshold}] Threshold upon column. Only the columns with a
\code{colSums} above the  threshold are kept.
\end{ldescription}
\end{Arguments}
\begin{Value}
Resized matrix.
\end{Value}
\begin{Author}\relax
N. LeMeur
\end{Author}
\begin{Examples}
\begin{ExampleCode}
mat <- matrix(c(1:25), nrow = 5, ncol = 5, dimnames = list(c(LETTERS[1:5]), c(1:5)))
xx <- LETTERS[c(2, 4, 5)]
reduceM(xx, mat)
\end{ExampleCode}
\end{Examples}

