7

假设我们有一些向量:

someVector = c(1, 3, 4, 6, 3, 9, 2, -5, -2)

我想得到一个包含someVector所有奇数元素位置的向量

所以在这种情况下,它看起来像......

resultVector = c(1, 2, 5, 6, 8)
4

2 回答 2

11
> which(someVector %% 2 == 1)
[1] 1 2 5 6 8
于 2013-01-11T19:09:39.767 回答
7
library(schoolmath)
which(is.odd(someVector))
[1] 1 2 5 6 8

只是为了好玩,这里的is.odd函数代码:

function (x) 
{
  start <- 1
  end <- length(x) + 1
  while (start < end) {
    y <- x[start]
    if (y == 0) {
      cat("Please enter a number > 0")
      end
    }
    test1 <- y/2
    test2 <- floor(test1)
    if (test1 != test2) {
      if (start == 1) {
        result = TRUE
      }
      else {
        result <- c(result, TRUE)
      }
    }
    else {
      if (start == 1) {
        result = FALSE
      }
      else {
        result <- c(result, FALSE)
      }
    }
    start <- start + 1
  }
  return(result)
}

绝对不要使用这个功能!

于 2013-01-11T19:19:11.903 回答