R 错误消息未使用的参数

Question

我编写了以下R代码来计算奇数：

abd<- function (x) {
    k<-0
    for (n in x) {
            if (n%%2==1) k <- k+1
    }
    return k
}

但是每当我尝试使用像 abd（c（1,2,3））这样的数字串时，它都会给我未使用的参数错误有人可以帮忙吗？

Answer 1

要计算奇数，您可以执行以下操作：

number <- 1:10
number
#>  [1]  1  2  3  4  5  6  7  8  9 10
sum(number %% 2)
#> [1] 5