R ben yön var işareti

Question

bir değişiklikten önce bir satır belirlenmesi:

df <- c(5,9,-8,-7,-1) 

nasıl burcunda bir değişiklikten önce pozisyon belirleyebilir? yani df[2]

Answer 1

Eğer sign işlevi hakkında biliyorsanız, bu, oldukça basit ...

which(diff(sign(df))!=0) 
# [1] 2 

Answer 2

Ben Yuşa cevabı tercih, ama burada alternatif sadece eğlence için, daha karmaşık biri:

head(cumsum(rle(sign(df))$lengths),-1) 

Eğer korkunç bir insan olmak istiyorsanız

Answer 3

, her zaman döngü için kullanabilirsiniz:

signchange <- function(x) { 
    index = 0 
    for(i in 1:length(x)) 
    { 
     if(x[i] < 0) 
     { 
      return (index) 
     } 
     else 
     { 
      index = index + 1 
     } 
    } 
    return (index) 
}