以下是一个编写的R函数,它接受一个整数列表,并返回原始列表中的奇数值:
getOddNumbers <- function(inputList) {
oddNumbers <- inputList[inputList %% 2 != 0]
return(oddNumbers)
}
示例用法:
inputList <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
oddNumbers <- getOddNumbers(inputList)
print(oddNumbers)
输出:
[1] 1 3 5 7 9
这个函数首先使用模运算符(%%)将列表中的每个元素与2取模,得到一个逻辑向量。逻辑向量中的值为TRUE
表示对应的元素是奇数,为FALSE
表示对应的元素是偶数。然后,我们使用这个逻辑向量作为索引,从原始列表中提取出对应的奇数值。最后,我们返回这个新的列表。