\HeaderA{prmatrix}{Print Matrices, Old-style}{prmatrix}
\keyword{print}{prmatrix}
\begin{Description}\relax
An earlier method for printing matrices, provided for S compatibility.
\end{Description}
\begin{Usage}
\begin{verbatim}
prmatrix(x, rowlab =, collab =,
         quote = TRUE, right = FALSE, na.print = NULL, ...)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] numeric or character matrix.
\item[\code{rowlab,collab}] (optional) character vectors giving row or column
names respectively.  By default, these are taken from
\code{\LinkA{dimnames}{dimnames}(x)}.
\item[\code{quote}] logical; if \code{TRUE} and \code{x} is of mode
\code{"character"}, \emph{quotes} (\code{"}) are used.
\item[\code{right}] if \code{TRUE} and \code{x} is of mode
\code{"character"}, the output columns are \emph{right}-justified.
\item[\code{na.print}] how \code{NA}s are printed.  If this is non-null, its
value is used to represent \code{NA}.
\item[\code{...}] arguments for \code{print} methods.
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
\code{prmatrix} is an earlier form of \code{print.matrix}, and
is very similar to the S function of the same name.
\end{Details}
\begin{Value}
Invisibly returns its argument, \code{x}.
\end{Value}
\begin{References}\relax
Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
\emph{The New S Language}.
Wadsworth \& Brooks/Cole.
\end{References}
\begin{SeeAlso}\relax
\code{\LinkA{print.default}{print.default}}, and other \code{\LinkA{print}{print}} methods.
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
prmatrix(m6 <- diag(6), row = rep("",6), coll=rep("",6))

chm <- matrix(scan(system.file("help", "AnIndex", package = "splines"),
                   what = ""), , 2, byrow = TRUE)
chm  # uses print.matrix()
prmatrix(chm, collab = paste("Column",1:3), right=TRUE, quote=FALSE)
\end{ExampleCode}
\end{Examples}

