有条件地用下三角替换矩阵上三角元素

Question

当下三角形条目等于给定值时，我试图用矩阵的下三角形替换矩阵的上三角形。例如，我有以下矩阵：

0 0 0 
1 0 0 
2 1 0 

我需要将所有等于 1 的下三角形条目复制到上三角形。结果应该是：

0 1 0 
1 0 1 
2 1 0 

我尝试使用：

library(gdata)

z <- matrix(c(0,1,2,0,0,1,0,0,0),nrow=3,ncol=3)
upperTriangle(z) <- t(lowerTriangle(z)[lowerTriangle(z)==1])

但这会将整个上三角形替换为 1。对此的任何帮助将不胜感激。

Answer 1

z <- matrix(c(0,1,2,0,0,1,0,0,0),nrow=3,ncol=3)
z[upper.tri(z) & t(z) == 1] = 1

为我工作。

注意：您的 upperTriangel 和 lowerTriangle 似乎不是基础的一部分。您可能需要指出它们来自哪个包。