以下简单r代码的错误是什么？

以下代码的错误是什么

 odd_even <-function(x)
 {
  {if (x %% 2 == 0) y <- TRUE
   else  y<-FALSE
 }
 y
 }
 odd_even(c((-5:5),2,-2))

警告信息：

---

在if（x%%2==0）中，y

if

需要长度为1的向量。你正在给它输入一个长度为13的向量（如果我算对的话）。这就是警告条件长度大于1且仅使用第一个元素的意思。使用此命令：

奇偶
if（）
只能计算一个元素
ifelse（）
可以处理向量。
*[1] FALSE