问将R中的矩阵转换为具有这些对应项的上三角/下三角矩阵

EN

要获得上三角矩阵，请执行以下操作：

mat <- matrix(1:9, 3, 3)
mat[lower.tri(mat)] <- 0

要删除对角线，请使用：

卡罗利斯在评论中建议的mat[lower.tri(mat,diag=TRUE)] <- 0或mat[!upper.tri(mat)] <- 0。

虽然前面的答案是完美的，但the manual是你的朋友：

矩阵的

下三角部分和上三角部分

描述

返回与给定矩阵大小相同的逻辑矩阵，其下三角形或上三角形中的项为TRUE。

用法

lower.tri(x，diag = FALSE) upper.tri(x，diag = FALSE)

参数

一个矩阵。

诊断

合乎逻辑。应该包括对角线吗？

另请参阅

diag，matrix.

示例

(m2 <-矩阵(1:20，4，5)) lower.tri(m2) m2lower.tri(m2) <- NA m2

一种简单的方法：

lower.triangle(X) #lower triangular

upper.triangle(X) #upper triangular

或者：

library(Matrix)

tril(X) #lower triangular

triu(X) #upper triangular