R語言 如何用IF語句判斷 一個數字的奇偶

jishu <- function(x){
    ifelse(x%%2 ==0,F,T)
}