r - 给定一个矩阵 x，将主对角线以下的所有元素设置为 0

Question

> x<-matrix(seq(1:16),4,4)
> x
     [,1] [,2] [,3] [,4]
[1,]    1    5    9   13
[2,]    2    6   10   14
[3,]    3    7   11   15
[4,]    4    8   12   16

对于通用矩阵，而不仅仅是我提供的示例，如何定位主对角线下方的所有元素并将它们设置为 0？

Answer 1

你可以做

x[lower.tri(x)] <- 0L

另一个：

x[row(x) > col(x)] <- 0L

( 0L, 不像0, 是一个整数。所以在这里使用它会保留你的矩阵的类。)