R 余数函数，提取特定值

Question

我正在用 R 编写一个函数，它给出数字索引的向量，其中向量除以没有余数的数字列在结果向量中。

这是我目前所拥有的

myfunction <-function(x,d)
{ 
    {y<- x%%d 
    return(y)}
}

如果你输入：

myfunction(x=2:12,d=3)

结果如下：

[1] 2 0 1 2 0 1 2 0 1 2 0

目前，我正在尝试提取所有 0 值，因为这些值表示不存在余数。我不知道该怎么做...

Answer 1

myfunction <- function(x,d) which(x%%d==0)
x <- 2:12
x[myfunction(x,3)]

您想通过函数执行此操作的任何特殊原因？否则你可以这样做

x[x%%3==0]