爲什麼ř聲稱：「錯誤在如果（S [I，J] == S [J，I]）{：缺失值，其中TRUE/FALSE需要對稱矩陣

Question

這是我的代碼：

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) 

我的錯誤是在這裏：if (S[i, j] == S[j, i]) {：

錯誤：

missing value where TRUE/FALSE needed

Answer 1

你似乎是有點困惑你傳遞一個矩陣S（你有沒有在你已經在這裏發佈的代碼定義）。到你的功能，這並不是原因爲E的錯誤，因爲你的函數中定義一個u通過v充滿NA值（嘗試matrix(,2,2)看看），它覆蓋的S傳入的值，並觸發錯誤矩陣。

試試這個：

Sip <- function(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 
} 
S <- matrix(1:4,2,2) 
Sip(S,2,2) 
## [1] "Simétrica" 
## [1] "No simétrica" 
## [1] "No simétrica" 
## [1] "Simétrica" 
##  [,1] [,2] 
## [1,] 1 3 
## [2,] 2 4 

這仍然可能不是你想要的，但它得到了一步......

也可能有用：

apropos("symmetric") 
isSymmetric(S)