在 R 中创建一个计数函数

Question

我正在尝试解决以下任务

编写一个函数，计算一个数组中奇数和偶数的个数 向量并提供三个输出（输出应该告诉我向量中有多少奇数和偶数）

Answer 1

vector <- c(1,2,3,4,5,6,7,8,9)

不确定三个输出是什么意思，因为你列出了两个，但这将计算向量中奇数和偶数的数量并给出总和。

myfunc <- function(x) {
  addmargins(setNames(table(x %% 2), c("even", "odd")),1)
}

输出：

> myfunc(vector)
even  odd  Sum 
   4    5    9