Znajdź indeksy nieparzystych liczb w wektorze całkowitej

Question

że mamy jakąś Vector:

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

Chcę otrzymać wektor, który ma lokalizacje w someVector wszystkich nieparzystych elementów

więc w ta sprawa będzie wyglądać ...

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

Answer 1

> which(someVector %% 2 == 1) 
[1] 1 2 5 6 8 

Answer 2

library(schoolmath) 
which(is.odd(someVector)) 
[1] 1 2 5 6 8 

tylko dla zabawy tutaj Kodeksu funkcji 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) 
} 

Zdecydowanie, nie należy używać tej funkcji!