在R-markdown中创建乳胶矩阵

Question

我应该如何修改这个短程序（随机表）：

```{r, results='tex'}
library(xtable)
A <- matrix(c(2,-5,4,1,-2.5,1,1,-4,6),byrow=T,nrow=3,ncol=3)
print(xtable(A), type="latex")
```

获得乳胶基质。现在的输出是：

应该是：

注意：无法以这种方式完成：

$$\begin{equation*}
\mathbf{}\left[\begin{matrix}
2 & -5 & 4\\ 1 & -2.5 & 1\\ 1 & -4 & 6
\end{matrix}\right] 
\end{equation*}
$$