矩阵操作来计算上下三角矩阵的最小值

Question

我想创建一个最小值，用于比较矩阵的下三角矩阵和上三角矩阵。例如

 A = matrix( c(2, 4, 3, 1, 5, 7,4,2,4), nrow=3, ncol=3,byrow = TRUE)  
 B= matrix(c(0,1,3,1,0,2,3,2,0), nrow=3, ncol=3,byrow= TRUE) 

我想创建一个像这样的矩阵，对角线元素设置为0，其余的是上下元素的最小值。例如（A（1,2），A（2,1）），其为min（4,1）= 1。这导致矩阵B.任何人都可以建议如何实现这种操作？

Answer 1

我认为你想使用pmin：

A <- matrix( c(2, 4, 3, 1, 5, 7,4,2,4), nrow=3, ncol=3,byrow = TRUE)  
diag(A) <- 0
output <- pmin(A, t(A))
output
 [,1] [,2] [,3]
[1,]    0    1    3
[2,]    1    0    2
[3,]    3    2    0

Answer 2

这样做：

B = ifelse(A<t(A),A,t(A))
diag(B) = 0

> B
     [,1] [,2] [,3]
[1,]    0    1    3
[2,]    1    0    2
[3,]    3    2    0

首先得到A和转置A之间的最小值，然后将对角线元素设置为0。