如何用R语言判断矩阵是否对称

本人R小白一枚，想请教一下各位大神如何用R判断矩阵是否对称。不知道有没有现成的函数，如果没有的话，怎么通过代码实现呢？

用isSymmetric函数来实现

1. > dd=matrix(c(1,2,3,4),2,2)
   
2. > dd
   
3.      [,1] [,2]
   
4. [1,]    1    3
   
5. [2,]    2    4
   
6. > isSymmetric(dd)
   
7. [1] FALSE
   
8. > d1 = matrix(c(1,2,2,1),2,2)
   
9. > d1
   
10.      [,1] [,2]
    
11. [1,]    1    2
    
12. [2,]    2    1
    
13. > isSymmetric(d1)
    
14. [1] TRUE

复制代码

直接转置再相减不就好了吗= =