bazı vektör var bir tamsayı vektörü

Question

Say tek sayı endeks bul: Ben tüm tek elemanların someVector yerleri olan bir vektör almak istiyorum

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

yüzden de

o şekilde görünecektir bu durumda ...

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 

sadece burada eğlence is.odd fonksiyonun kodu için:

Kesinlikle

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) 
} 

, bu işlevi kullanmayın!