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

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。