直接用isSymmetric()

或者all(x - t(x)==0)，这里x是你的矩阵

1# ckj1860

2# qoiqpwqr
谢谢回复，这方法我知道，但是就是题目就是让用row跟col还有all这三个函数做啊！~
所以我想知道怎么用上row和col，感觉就是一行一行跟一列列取，然后比较，但是怎么做呢

没有人帮忙想想吗？我想了两天了，还是想不出来。。。

举例:
a<-matrix(1:20,ncol=4)
     [,1] [,2] [,3] [,4]
[1,]    1    6   11   16
[2,]    2    7   12   17
[3,]    3    8   13   18
[4,]    4    9   14   19
[5,]    5   10   15   20

a[row(a)==1&col(a)==1] 将返回1， 第一行第一列
a[row(a)==1&col(a)==2] 将返回6， 第一行第二列