x[which(diff(x>0)==-1)+1]
Em 28 de outubro de 2013 15:59, Paulo Justiniano <paulo...@leg.ufpr.br>escreveu: > 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 >> >> > _______________________________________________ > R-br mailing list > R-br@listas.c3sl.ufpr.br > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. > -- Luis Iván Ortiz Valencia Doutorando Saúde Pública - Epidemiologia, IESC, UFRJ Estatístico Msc. Spatial Analyst Msc.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.