[R-br] Selecionar o primeiro numero negativo depois do último positivo.

[Paulo Justiniano]

x <- c(10, 12, 11, 5, 4, -5, -10, -11, -15, 4, 5, 6, 8, 10, 8, 5, 4, -6, -2, 4, 8)
x1 <- ifelse(x < 0, 1, 0)
x[which(diff(x1) == 1)+1]
[1] -5 -6




On Mon, 28 Oct 2013, Alisson Lucrecio wrote:

> Caro Colegas da lista r-br,
> 
> Boa tarde.
> 
> Eu estou precisando encontrar o primeiro numero negativo depois do último numero
> positivo de uma sequencia c(10, 12, 11, 5, 4, -5, -10, -11, -15, 4, 5, 6, 8, 10, 8,
> 5, 4, -6, -2, 4, 8). Assim o numero selecionado seriam -5 e -6. Algum de vocês
> poderia me ajudar com uma função que tivesse tal finalidade?
> 
> Obrigado.
>  
> Alisson Lucrécio da Costa
> 
>