返回索引而不是值的函数

Question

我有一个简单的函数，可以在以下向量中找到被4整除的数字：x4 <- (2 4 6 8 10 12 14)。但是该函数返回值，我希望它返回索引。

myef2 <- function(x){
  li2 <- NULL
  for(i in x){
    if(i %% 4 == 0) li2 <- c(li2, i)
  }
  return(li2)
}

结果是[1] 4 8 12.我如何修改它以给我一个索引向量？感谢您的帮助！

Answer 1

如果x是数字向量，which(x%%4==0)又如何呢？