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