编写一个R函数，该函数接受整数列表，并且仅返回原始列表中的奇数

Question

编写一个R函数，该函数接受整数列表并仅返回奇数 原始列表中的值。 R有许多内置数据集；其中之一是 称为尼罗河，并且包含这些数据的数据框被添加到您的工作中 命令数据（“ Nile”）的环境。这有多少个条目 数据集是奇数？

我写的是

return.odd<-function(y)return(y[y%%2=1])

length(return.odd(Nile))

但是它返回

Error: unexpected '=' in "return.odd<-function(y)return(y[y%%2="

和

Error in return.odd(Nile) : could not find function "return.odd"

你能告诉我我的错误在哪里吗？

Answer 1

return_odd <- function(x) {

x[x %% 2 == 1]

}

length(return_odd(Nile))

[1] 27