R语言 如何用IF语句判断 一个数字的奇偶

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