The purpose of the latexMatrix()
function is to facilitate the preparation
of LaTeX and Markdown documents that include matrices. The function generates the
the LaTeX code for matrices of various types programmatically. The objects produced
by the function can also be manipulated, e.g., with standard arithmetic functions and operators:
See latexMatrixOperations
.
The latexMatrix()
function can construct the LaTeX code for a symbolic matrix, whose elements are a symbol
, with row and column subscripts.
For example:
\begin{pmatrix}
x_{11} & x_{12} & \dots & x_{1m} \
x_{21} & x_{22} & \dots & x_{2m} \
\vdots & \vdots & \ddots & \vdots \
x_{n1} & x_{n2} & \dots & x_{nm}
\end{pmatrix}
When rendered in LaTeX, this produces: $$ \begin{pmatrix} x_{11} & x_{12} & \cdots & x_{1m} \\ x_{21} & x_{22} & \cdots & x_{2m} \\ \vdots & \vdots & & \vdots \\ x_{n1} & x_{n2} & \cdots & x_{nm} \\ \end{pmatrix} $$
Alternatively, instead of characters, the number of rows and/or columns can be integers, generating a matrix of given size.
As well, instead of a character for the matrix symbol
, you can supply a matrix of arbitrary character
strings (in LaTeX notation) or numbers, and these will be used as the elements of the matrix.
You can print the resulting LaTeX code to the console. When the result is assigned to a variable,
you can send it to the clipboard using write_clip()
. Perhaps most convenient of all,
the function can be used used in a markdown chunk in a Rmd
or qmd
document, e.g,
```{r results = "asis"}
latexMatrix("\lambda", nrow=2, ncol=2,
diag=TRUE)
```
This generates $$ \begin{pmatrix} \lambda_{1} & 0 \\ 0 & \lambda_{2} \\ \end{pmatrix} $$
Usage
latexMatrix(
symbol = "x",
nrow = "n",
ncol = "m",
rownames = NULL,
colnames = NULL,
matrix = getOption("latexMatrixEnv"),
diag = FALSE,
sparse = FALSE,
zero.based = c(FALSE, FALSE),
end.at = c("n - 1", "m - 1"),
comma = any(zero.based),
exponent,
transpose = FALSE,
show.size = FALSE,
digits = getOption("digits") - 2,
fractions = FALSE,
prefix = "",
suffix = "",
prefix.row = "",
prefix.col = ""
)
partition(x, ...)
# S3 method for class 'latexMatrix'
partition(x, rows, columns, ...)
getLatex(x, ...)
# S3 method for class 'latexMatrix'
getLatex(x, ...)
getBody(x, ...)
# S3 method for class 'latexMatrix'
getBody(x, ...)
getWrapper(x, ...)
# S3 method for class 'latexMatrix'
getWrapper(x, ...)
Dim(x, ...)
# S3 method for class 'latexMatrix'
Dim(x, ...)
Nrow(x, ...)
# S3 method for class 'latexMatrix'
Nrow(x, ...)
Ncol(x, ...)
# S3 method for class 'latexMatrix'
Ncol(x, ...)
# S3 method for class 'latexMatrix'
print(
x,
onConsole = TRUE,
bordermatrix = getOption("bordermatrix"),
cell.spacing = getOption("cell.spacing"),
colname.spacing = getOption("colname.spacing"),
...
)
# S3 method for class 'latexMatrix'
is.numeric(x)
# S3 method for class 'latexMatrix'
as.double(x, locals = list(), ...)
# S3 method for class 'latexMatrix'
x[i, j, ..., drop]
# S3 method for class 'latexMatrix'
cbind(..., deparse.level)
# S3 method for class 'latexMatrix'
rbind(..., deparse.level)
# S3 method for class 'latexMatrix'
dimnames(x)
Dimnames(x) <- value
# S3 method for class 'latexMatrix'
Dimnames(x) <- value
Rownames(x) <- value
# S3 method for class 'latexMatrix'
Rownames(x) <- value
Colnames(x) <- value
# S3 method for class 'latexMatrix'
Colnames(x) <- value
Arguments
- symbol
name for matrix elements, character string. For LaTeX symbols, the backslash must be doubled because it is an escape character in R. That is, you must use
symbol = "\\beta"
to get \(\beta\). Alternatively, this can be an R matrix object, containing numbers or LaTeX code for the elements. For a row or column vector, usematrix(..., nrow=1)
ormatrix(..., ncol=1)
- nrow
Number of rows, a single character representing rows symbolically, or an integer, generating that many rows.
- ncol
Number of columns, a single character representing columns symbolically, or an integer, generating that many columns.
- rownames
optional vector of names for the matrix rows. if
symbol
is an R matrix with row names, these are used. For a matrix with a non-numeric (e.g.,"m"
) number of rows, 3 names should be supplied, for the 1st, 2nd, and last rows.- colnames
optional vector of names for the matrix columns. if
symbol
is an R matrix with column names, these are used. For a matrix with a non-numeric (e.g.,"n"
) number of columns, 3 names should be supplied, for the 1st, 2nd, and last columns.- matrix
Character string giving the LaTeX matrix environment used in
\begin{}
,\end{}
. Typically one of:"pmatrix"
uses parentheses:
"(", ")"
"bmatrix"
uses square brackets:
"[", "]"
"Bmatrix"
uses braces:
"{", "}"
"vmatrix"
uses vertical bars:
"|", "|"
"Vmatrix"
uses double vertical bars:
"||", "||"
"matrix"
generates a plain matrix without delimiters
"smallmatrix"
same as
"matrix"
, but for in-line use
Small matrix definitions from the
mathtools
LaTeX package are also possible for in-line use (e.g.,"psmallmatrix"
). The default is taken from the"latexMatrixEnv"
option; if this option isn't set, then"pmatrix"
is used.- diag
logical; if
TRUE
, off-diagonal elements are all 0 (andnrow
must ==ncol
)- sparse
logical; if
TRUE
replace 0's with empty characters to print a sparse matrix- zero.based
logical 2-vector; start the row and/or column indices at 0 rather than 1; the default is
c(FALSE, FALSE)
- end.at
if row or column indices start at 0, should they end at
n - 1
andm - 1
or atn
andm
? (wheren
andm
represent the characters used to denote the number of rows and columns, respectively); the default isc("n - 1", "m - 1")
; applies only whennrow
orncol
are characters- comma
logical; if
TRUE
, commas are inserted between row and column subscripts, as inx_{1,1}
; the default isFALSE
except for zero-based indices.- exponent
if specified, e.g.,
"-1"
, or"1/2"
, the exponent is applied to the matrix- transpose
if
TRUE
, the transpose symbol"\top"
is appended to the matrix; this may also be a character string, e.g.,"T"
,"\prime"
,"\textsf{T}"
are commonly used.- show.size
logical; if
TRUE
shows the order of the matrix as an appended subscript.- digits
for a numeric matrix, number of digits to display;
- fractions
logical; if
TRUE
, try to express non-integers as rational numbers, using thefractions
function.- prefix
optional character string to be pre-pended to each matrix element, e.g, to wrap each element in a function like
"\sqrt"
(but add braces)- suffix
optional character string to be appended to each matrix element, e.g., for exponents on each element
- prefix.row
optional character string to be pre-pended to each matrix row index
- prefix.col
optional character string to be pre-pended to each matrix column index
- x
a
"latexMatrix"
object- ...
for
rbind()
andcbind()
, one or more"latexMatrix"
objects with, respectively, the same number of columns or rows; otherwise, for compatibility with generic functions, may be ignored- rows
row numbers after which partition lines should be drawn in the LaTeX printed representation of the matrix; if omitted, then the matrix isn't partitioned by rows
- columns
column numbers after which partition lines should be drawn in the LaTeX printed representation of the matrix; if omitted, then the matrix isn't partitioned by columns
- onConsole
if
TRUE
, the default, print the LaTeX code for the matrix on the R console.- bordermatrix
if
TRUE
, the LaTeX"\bordermatrix"
macro is used for matrices with row and/or column names. This macro doesn't work in Markdown-based documents. The default is taken from the"bordermatrix"
option, and if that option isn't set the argument is set toFALSE
.- cell.spacing
a character whose width is used to try to even out spacing of printed cell elements; the default is taken from the
"cell.spacing"
option, and if that option isn't set the character"e"
is used.- colname.spacing
a character whose width is used to try to even out spacing of printed column names; the default is taken from the
"colname.spacing"
option, and if that option isn't set the character"i"
is used.- locals
an optional list or named numeric vector of variables to be given specific numeric values; e.g.,
locals = list(a = 1, b = 5, c = -1, d = 4)
orlocals = c(a = 1, b = 5, c = -1, d = 4)
- i
row index or indices (negative indices to omit rows)
- j
column index or indices (negative indices to omit columns)
- drop
to match the generic indexing function, ignored
- deparse.level
- value
for
"Dimnames<-()"
, a two-element list with, respectively, character vectors of row and column names; for"Rownames<-()"
and"Colnames<-()"
, a vector of names.
Value
latexMatrix()
returns an object of class "latexMatrix"
which contains the LaTeX representation of the matrix as a character string,
in the returned object are named:
"matrix"
(the LaTeX representation of the matrix);"dim"
(nrow
andncol
);"body"
(a character matrix of LaTeX expressions for the cells of the matrix);"wrapper"
(the beginning and ending lines for the LaTeX matrix environment).
partition()
, rbind()
, cbind()
, and indexing of
"latexMatrix"
objects also return a "latexMatrix"
object.
Details
This implementation assumes that the LaTeX amsmath
package will be available because it uses the shorthands
\begin{pmatrix}
, ... rather than
\left(
\begin{array}(ccc)
...
\end{array}
\right)
You may need to use extra_dependencies: ["amsmath"]
in your YAML header of a Rmd
or qmd
file.
You can supply a numeric matrix as the symbol
, but the result will not be pretty
unless the elements are integers or are rounded. For a LaTeX representation of general numeric matrices, use
matrix2latex
.
The partition()
function modifies (only) the printed LaTeX representation of a "latexMatrix"
object to include partition lines by rows and/or columns.
The accessor functions getLatex()
, getBody()
, getWrapper()
,
getDim()
, getNrow()
, and getNcol()
may be used to retrieve
components of the returned object.
Various functions and operators for "latexMatrix"
objects are
documented separately; see, latexMatrixOperations
.
Examples
latexMatrix()
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & x_{1m} \\
#> x_{21} & x_{22} & \cdots & x_{2m} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1} & x_{n2} & \cdots & x_{nm} \\
#> \end{pmatrix}
# return value
mat <- latexMatrix()
str(mat)
#> List of 5
#> $ matrix : chr "\\begin{pmatrix} \n x_{11} & x_{12} & \\cdots & x_{1m} \\\\ \n x_{21} & x_{22} & \\cdots & x_{2m} \\\\ \n \\"| __truncated__
#> $ dim : chr [1:2] "n" "m"
#> $ body : chr [1:4, 1:4] "x_{11}" "x_{21}" "\\vdots" "x_{n1}" ...
#> $ wrapper : chr [1:2] "\\begin{pmatrix} " "\\end{pmatrix}"
#> $ dimnames:List of 2
#> ..$ rownames: NULL
#> ..$ colnames: NULL
#> - attr(*, "class")= chr "latexMatrix"
cat(getLatex(mat))
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & x_{1m} \\
#> x_{21} & x_{22} & \cdots & x_{2m} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1} & x_{n2} & \cdots & x_{nm} \\
#> \end{pmatrix}
# copy to clipboard (can't be done in non-interactive mode)
if (FALSE) { # \dontrun{
clipr::write_clip(mat)
} # }
# can use a complex symbol
latexMatrix("\\widehat{\\beta}", 2, 4)
#> \begin{pmatrix}
#> \widehat{\beta}_{11} & \widehat{\beta}_{12} & \widehat{\beta}_{13} & \widehat{\beta}_{14} \\
#> \widehat{\beta}_{21} & \widehat{\beta}_{22} & \widehat{\beta}_{23} & \widehat{\beta}_{24} \\
#> \end{pmatrix}
# numeric rows/cols
latexMatrix(ncol=3)
#> \begin{pmatrix}
#> x_{11} & x_{12} & x_{13} \\
#> x_{21} & x_{22} & x_{23} \\
#> \vdots & \vdots & \vdots \\
#> x_{n1} & x_{n2} & x_{n3} \\
#> \end{pmatrix}
latexMatrix(nrow=4)
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & x_{1m} \\
#> x_{21} & x_{22} & \cdots & x_{2m} \\
#> x_{31} & x_{32} & \cdots & x_{3m} \\
#> x_{41} & x_{42} & \cdots & x_{4m} \\
#> \end{pmatrix}
latexMatrix(nrow=4, ncol=4)
#> \begin{pmatrix}
#> x_{11} & x_{12} & x_{13} & x_{14} \\
#> x_{21} & x_{22} & x_{23} & x_{24} \\
#> x_{31} & x_{32} & x_{33} & x_{34} \\
#> x_{41} & x_{42} & x_{43} & x_{44} \\
#> \end{pmatrix}
# diagonal matrices
latexMatrix(nrow=3, ncol=3, diag=TRUE)
#> \begin{pmatrix}
#> x_{1} & 0 & 0 \\
#> 0 & x_{2} & 0 \\
#> 0 & 0 & x_{3} \\
#> \end{pmatrix}
latexMatrix(nrow="n", ncol="n", diag=TRUE)
#> \begin{pmatrix}
#> x_{1} & 0 & \cdots & 0 \\
#> 0 & x_{2} & \cdots & 0 \\
#> \vdots & \vdots & \ddots & \vdots \\
#> 0 & 0 & \cdots & x_{n} \\
#> \end{pmatrix}
latexMatrix(nrow="n", ncol="n", diag=TRUE, sparse=TRUE)
#> \begin{pmatrix}
#> x_{1} & & \cdots & \\
#> & x_{2} & \cdots & \\
#> \vdots & \vdots & \ddots & \vdots \\
#> & & \cdots & x_{n} \\
#> \end{pmatrix}
# commas, exponents, transpose
latexMatrix("\\beta", comma=TRUE, exponent="-1")
#> \begin{pmatrix}
#> \beta_{1,1} & \beta_{1,2} & \cdots & \beta_{1,m} \\
#> \beta_{2,1} & \beta_{2,2} & \cdots & \beta_{2,m} \\
#> \vdots & \vdots & & \vdots \\
#> \beta_{n,1} & \beta_{n,2} & \cdots & \beta_{n,m} \\
#> \end{pmatrix}^{-1}
latexMatrix("\\beta", comma=TRUE, transpose=TRUE)
#> \begin{pmatrix}
#> \beta_{1,1} & \beta_{1,2} & \cdots & \beta_{1,m} \\
#> \beta_{2,1} & \beta_{2,2} & \cdots & \beta_{2,m} \\
#> \vdots & \vdots & & \vdots \\
#> \beta_{n,1} & \beta_{n,2} & \cdots & \beta_{n,m} \\
#> \end{pmatrix}^\top
latexMatrix("\\beta", comma=TRUE, exponent="-1", transpose=TRUE)
#> \begin{pmatrix}
#> \beta_{1,1} & \beta_{1,2} & \cdots & \beta_{1,m} \\
#> \beta_{2,1} & \beta_{2,2} & \cdots & \beta_{2,m} \\
#> \vdots & \vdots & & \vdots \\
#> \beta_{n,1} & \beta_{n,2} & \cdots & \beta_{n,m} \\
#> \end{pmatrix}^{{-1^\top}}
# for a row/column vector, wrap in matrix()
latexMatrix(matrix(LETTERS[1:4], nrow=1))
#> \begin{pmatrix}
#> A & B & C & D \\
#> \end{pmatrix}
latexMatrix(matrix(LETTERS[1:4], ncol=1))
#> \begin{pmatrix}
#> A \\
#> B \\
#> C \\
#> D \\
#> \end{pmatrix}
# represent the SVD, X = U D V' symbolically
X <- latexMatrix("x", "n", "p")
U <- latexMatrix("u", "n", "k")
D <- latexMatrix("\\lambda", "k", "k", diag=TRUE)
V <- latexMatrix("v", "k", "p", transpose = TRUE)
cat("\\mathrm{SVD:}\n", getLatex(X), "=\n", getLatex(U),
getLatex(D), getLatex(V))
#> \mathrm{SVD:}
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & x_{1p} \\
#> x_{21} & x_{22} & \cdots & x_{2p} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1} & x_{n2} & \cdots & x_{np} \\
#> \end{pmatrix}
#> =
#> \begin{pmatrix}
#> u_{11} & u_{12} & \cdots & u_{1k} \\
#> u_{21} & u_{22} & \cdots & u_{2k} \\
#> \vdots & \vdots & & \vdots \\
#> u_{n1} & u_{n2} & \cdots & u_{nk} \\
#> \end{pmatrix}
#> \begin{pmatrix}
#> \lambda_{1} & 0 & \cdots & 0 \\
#> 0 & \lambda_{2} & \cdots & 0 \\
#> \vdots & \vdots & \ddots & \vdots \\
#> 0 & 0 & \cdots & \lambda_{k} \\
#> \end{pmatrix}
#> \begin{pmatrix}
#> v_{11} & v_{12} & \cdots & v_{1p} \\
#> v_{21} & v_{22} & \cdots & v_{2p} \\
#> \vdots & \vdots & & \vdots \\
#> v_{k1} & v_{k2} & \cdots & v_{kp} \\
#> \end{pmatrix}^\top
# supply a matrix for 'symbol'
m <- matrix(c(
"\\alpha", "\\beta",
"\\gamma", "\\delta",
"\\epsilon", "\\pi",
0 , 0), 4, 2, byrow=TRUE)
latexMatrix(m)
#> \begin{pmatrix}
#> \alpha & \beta \\
#> \gamma & \delta \\
#> \epsilon & \pi \\
#> 0 & 0 \\
#> \end{pmatrix}
# Identity matrix
latexMatrix(diag(3))
#> \begin{pmatrix}
#> 1 & 0 & 0 \\
#> 0 & 1 & 0 \\
#> 0 & 0 & 1 \\
#> \end{pmatrix}
latexMatrix(diag(3), sparse=TRUE)
#> \begin{pmatrix}
#> 1 & & \\
#> 0 & 1 & \\
#> 0 & & 1 \\
#> \end{pmatrix}
# prefix / suffix
latexMatrix(prefix="\\sqrt{", suffix="}")
#> \begin{pmatrix}
#> \sqrt{x_{11}} & \sqrt{x_{12}} & \cdots & \sqrt{x_{1m}} \\
#> \sqrt{x_{21}} & \sqrt{x_{22}} & \cdots & \sqrt{x_{2m}} \\
#> \vdots & \vdots & & \vdots \\
#> \sqrt{x_{n1}} & \sqrt{x_{n2}} & \cdots & \sqrt{x_{nm}} \\
#> \end{pmatrix}
latexMatrix(suffix="^{1/2}")
#> \begin{pmatrix}
#> x_{11}^{1/2} & x_{12}^{1/2} & \cdots & x_{1m}^{1/2} \\
#> x_{21}^{1/2} & x_{22}^{1/2} & \cdots & x_{2m}^{1/2} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1}^{1/2} & x_{n2}^{1/2} & \cdots & x_{nm}^{1/2} \\
#> \end{pmatrix}
# show size (order) of a matrix
latexMatrix(show.size=TRUE)
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & x_{1m} \\
#> x_{21} & x_{22} & \cdots & x_{2m} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1} & x_{n2} & \cdots & x_{nm} \\
#> \end{pmatrix}_{(n \times m)}
latexMatrix(nrow=3, ncol=4, show.size=TRUE)
#> \begin{pmatrix}
#> x_{11} & x_{12} & x_{13} & x_{14} \\
#> x_{21} & x_{22} & x_{23} & x_{24} \\
#> x_{31} & x_{32} & x_{33} & x_{34} \\
#> \end{pmatrix}_{(3 \times 4)}
# handling fractions
m <- matrix(3/(1:9), 3, 3)
latexMatrix(m)
#> \begin{pmatrix}
#> 3.00000 & 0.75000 & 0.42857 \\
#> 1.50000 & 0.60000 & 0.37500 \\
#> 1.00000 & 0.50000 & 0.33333 \\
#> \end{pmatrix}
latexMatrix(m, digits=2)
#> \begin{pmatrix}
#> 3.00 & 0.75 & 0.43 \\
#> 1.50 & 0.60 & 0.38 \\
#> 1.00 & 0.50 & 0.33 \\
#> \end{pmatrix}
latexMatrix(m, fractions=TRUE)
#> \renewcommand*{\arraystretch}{1.5}
#> \begin{pmatrix}
#> 3 & \frac{3}{4} & \frac{3}{7} \\
#> \frac{3}{2} & \frac{3}{5} & \frac{3}{8} \\
#> 1 & \frac{1}{2} & \frac{1}{3} \\
#> \end{pmatrix}
# zero-based indexing
latexMatrix(zero.based=c(TRUE, TRUE))
#> \begin{pmatrix}
#> x_{0,0} & x_{0,1} & \cdots & x_{0,m - 1} \\
#> x_{1,0} & x_{1,1} & \cdots & x_{1,m - 1} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n - 1,0} & x_{n - 1,1} & \cdots & x_{n - 1,m - 1} \\
#> \end{pmatrix}
# partitioned matrix
X <- latexMatrix(nrow=5, ncol=6)
partition(X, rows=c(2, 4), columns=c(3, 5))
#> \begin{pmatrix}
#> \begin{array}{c c c | c c | c}
#> x_{11} & x_{12} & x_{13} & x_{14} & x_{15} & x_{16}\\
#> x_{21} & x_{22} & x_{23} & x_{24} & x_{25} & x_{26}\\
#> \hline x_{31} & x_{32} & x_{33} & x_{34} & x_{35} & x_{36}\\
#> x_{41} & x_{42} & x_{43} & x_{44} & x_{45} & x_{46}\\
#> \hline x_{51} & x_{52} & x_{53} & x_{54} & x_{55} & x_{56}\\
#> \end{array}
#> \end{pmatrix}
# binding rows and columns; indexing
X <- latexMatrix("x", nrow=4, ncol=2)
Y <- latexMatrix("y", nrow=4, ncol=1)
Z <- latexMatrix(matrix(1:8, 4, 2))
cbind(X, Y, Z)
#> \begin{pmatrix}
#> x_{11} & x_{12} & y_{1} & 1 & 5 \\
#> x_{21} & x_{22} & y_{2} & 2 & 6 \\
#> x_{31} & x_{32} & y_{3} & 3 & 7 \\
#> x_{41} & x_{42} & y_{4} & 4 & 8 \\
#> \end{pmatrix}
rbind(X, Z)
#> \begin{pmatrix}
#> x_{11} & x_{12} \\
#> x_{21} & x_{22} \\
#> x_{31} & x_{32} \\
#> x_{41} & x_{42} \\
#> 1 & 5 \\
#> 2 & 6 \\
#> 3 & 7 \\
#> 4 & 8 \\
#> \end{pmatrix}
X[1:2, ]
#> \begin{pmatrix}
#> x_{11} & x_{12} \\
#> x_{21} & x_{22} \\
#> \end{pmatrix}
X[-(1:2), ]
#> \begin{pmatrix}
#> x_{31} & x_{32} \\
#> x_{41} & x_{42} \\
#> \end{pmatrix}
X[1:2, 2]
#> \begin{pmatrix}
#> x_{12} \\
#> x_{22} \\
#> \end{pmatrix}
# defining row and column names
W <- latexMatrix(rownames=c("\\alpha_1", "\\alpha_2", "\\alpha_m"),
colnames=c("\\beta_1", "\\beta_2", "\\beta_n"))
W
#> \begin{matrix}
#> & \begin{matrix} \phantom{i} \beta_1\phantom{ii} & \beta_2\phantom{ii} & \cdots & \beta_n\phantom{ii}
#> \end{matrix} \\
#> \begin{matrix}
#> \alpha_1\\
#> \alpha_2\\
#> \vdots\\
#> \alpha_m\\
#> \end{matrix} &
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & x_{1m} \\
#> x_{21} & x_{22} & \cdots & x_{2m} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1} & x_{n2} & \cdots & x_{nm} \\
#> \end{pmatrix}
#> \\
#> \end{matrix}
Rownames(W) <- c("\\mathrm{Abe}", "\\mathrm{Barry}", "\\mathrm{Zelda}")
Colnames(W) <- c("\\mathrm{Age}", "\\mathrm{BMI}", "\\mathrm{Waist}")
W
#> \begin{matrix}
#> & \begin{matrix} \phantom{i} \mathrm{Age} & \mathrm{BMI} & \cdots & \mathrm{Waist}
#> \end{matrix} \\
#> \begin{matrix}
#> \mathrm{Abe}\\
#> \mathrm{Barry}\\
#> \vdots\\
#> \mathrm{Zelda}\\
#> \end{matrix} &
#> \begin{pmatrix}
#> x_{11} & x_{12} & \cdots & \phantom{ee}x_{1m} \\
#> x_{21} & x_{22} & \cdots & \phantom{ee}x_{2m} \\
#> \vdots & \vdots & & \vdots \\
#> x_{n1} & x_{n2} & \cdots & \phantom{ee}x_{nm} \\
#> \end{pmatrix}
#> \\
#> \end{matrix}