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]