使用if/else函數R

Question

我試圖寫一個簡單的代碼來計算中位數，但我得到了一個錯誤。 這是我寫

位數< -function（x）的{odd.even < -length（x）的%% 2如果（odd.even = = 0）（排序（x）的[長度（X）/ 2] + sort（x）[1 + length（x）/ 2]）/ 2 else（sort（x）[ceiling（length（x）/ 2）]）}

這是我得到的錯誤

錯誤：意外 '如果' 在 「中值< -function（x）的{odd.even < -length（x）的%% 2如果」

由於

Answer 1

試試這個（你忘了括號{）

median<-function(x){ 

    odd.even<-length(x)%%2 

    if (odd.even == 0){  
    (sort(x)[length(x)/2]+sort(x)[1+length(x)/2])/2 
    } else { 
    (sort(x)[ceiling(length(x)/2)]) 
    } 

} 

正如指出的，如果你想不使用支架，你總是可以做到這一點，用一個新行的if語句：

median<-function(x){ 
    odd.even<-length(x)%%2 
    if (odd.even == 0) (sort(x)[length(x)/2]+sort(x)[1+length(x)/2])/2 else (sort(x)[ceiling(length(x)/2)]) 
} 

而且最後的回報（x）可能有助於閱讀過程，儘管它不是強制性的。