为什么R声称:“if (S[i, j] = S[j, i])中的错误:缺少真/假需要的值?”对称矩阵

Here is my code:

这是我的代码:

Sip<-function(S,u,v){
   S<-matrix(,u,v);u<-nrow(S);v<-ncol(S);u==v;
   for(i in 1:u)
     {for(j in 1:v){
       if(S[i,j]==S[j,i]){print("Simétrica")}
       else{print("No simétrica")}
     }
   }
   S
 }
 Sip(S,2,2)
Sip<-function(S,u,