包含For循环检查r中Vector中奇数和的函数

Question

我想写一个函数，其中包含一个for循环，用于检查向量中有多少个奇数。

我尝试了一些变化，但它要么打印整个列，要么打印列的长度1。有什么建议吗?

# counter
odd_count <- 0
for(i in 1:length(MAJOR$Unemployed)) {
if(i %% 2 != 0) {
odd_count <- odd_count +  1
print(odd_count)
}
}

Answer 1

这最终成功了!

odd_count <- 0
odd_numbers <- function(x){
for(i in MAJOR$Unemployed) {
if(i %% 2 != 0) {
odd_count <- odd_count +  1
}
}
print(odd_count)
}
odd_numbers(MAJOR$Unemployed)

我同意这种方式更有效，更容易:

sum(MAJOR$Unemployed %% 2 !=0)

所以谢谢你@Dave2e!我可以对照这段简洁的代码来检查我的函数。