The R Project SVN R

Rev

Rev 61150 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61150 Rev 61168
Line 10... Line 10...
10
prmatrix(x, rowlab =, collab =,
10
prmatrix(x, rowlab =, collab =,
11
         quote = TRUE, right = FALSE, na.print = NULL, \dots)
11
         quote = TRUE, right = FALSE, na.print = NULL, \dots)
12
}
12
}
13
\arguments{
13
\arguments{
14
  \item{x}{numeric or character matrix.}
14
  \item{x}{numeric or character matrix.}
15
  \item{rowlab,collab}{(optional) character vectors giving row or column
15
  \item{rowlab, collab}{(optional) character vectors giving row or column
16
    names respectively.  By default, these are taken from
16
    names respectively.  By default, these are taken from
17
    \code{\link{dimnames}(x)}.}
17
    \code{\link{dimnames}(x)}.}
18
  \item{quote}{logical; if \code{TRUE} and \code{x} is of mode
18
  \item{quote}{logical; if \code{TRUE} and \code{x} is of mode
19
    \code{"character"}, \emph{quotes} (\samp{"}) are used.} %"
19
    \code{"character"}, \emph{quotes} (\samp{"}) are used.} %"
20
  \item{right}{ if \code{TRUE} and \code{x} is of mode
20
  \item{right}{ if \code{TRUE} and \code{x} is of mode
Line 40... Line 40...
40
}
40
}
41
\seealso{
41
\seealso{
42
  \code{\link{print.default}}, and other \code{\link{print}} methods.
42
  \code{\link{print.default}}, and other \code{\link{print}} methods.
43
}
43
}
44
\examples{
44
\examples{
45
prmatrix(m6 <- diag(6), rowlab = rep("",6), collab = rep("",6))
45
prmatrix(m6 <- diag(6), rowlab = rep("", 6), collab = rep("", 6))
46
 
46
 
47
chm <- matrix(scan(system.file("help", "AnIndex", package = "splines"),
47
chm <- matrix(scan(system.file("help", "AnIndex", package = "splines"),
48
                   what = ""), , 2, byrow = TRUE)
48
                   what = ""), , 2, byrow = TRUE)
49
chm  # uses print.matrix()
49
chm  # uses print.matrix()
50
prmatrix(chm, collab = paste("Column", 1:3), right = TRUE, quote = FALSE)
50
prmatrix(chm, collab = paste("Column", 1:3), right = TRUE, quote = FALSE)