R identificar una fila antes de un cambio de signo

Question

Tengo un vector:

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

¿Cómo puedo identificar la posición antes de un cambio de signo? es decir df[2]

Answer 1

Esto es bastante simple, si usted sabe acerca de la función sign ...

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

Answer 2

prefiero la respuesta de Joshua, pero aquí es una alternativa, uno más complicado sólo por diversión:

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

Answer 3

Si quieres ser una persona terrible, usted podría utilizar siempre un bucle for:

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