<div dir="ltr">x[which(diff(x>0)==-1)+1]<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 28 de outubro de 2013 15:59, Paulo Justiniano <span dir="ltr"><<a href="mailto:paulojus@leg.ufpr.br" target="_blank">paulojus@leg.ufpr.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">x <- c(10, 12, 11, 5, 4, -5, -10, -11, -15, 4, 5, 6, 8, 10, 8, 5, 4, -6, -2, 4, 8)<br>
x1 <- ifelse(x < 0, 1, 0)<br>
x[which(diff(x1) == 1)+1]<br>
[1] -5 -6<div class="HOEnZb"><div class="h5"><br>
<br>
<br>
<br>
<br>
On Mon, 28 Oct 2013, Alisson Lucrecio wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Caro Colegas da lista r-br,<br>
<br>
Boa tarde.<br>
<br>
Eu estou precisando encontrar o primeiro numero negativo depois do último numero<br>
positivo de uma sequencia c(10, 12, 11, 5, 4, -5, -10, -11, -15, 4, 5, 6, 8, 10, 8,<br>
5, 4, -6, -2, 4, 8). Assim o numero selecionado seriam -5 e -6. Algum de vocês<br>
poderia me ajudar com uma função que tivesse tal finalidade?<br>
<br>
Obrigado.<br>
 <br>
Alisson Lucrécio da Costa<br>
<br>
</blockquote>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
Luis Iván Ortiz Valencia<br>Doutorando Saúde Pública - Epidemiologia, IESC, UFRJ<br>Estatístico Msc.<br>Spatial Analyst Msc.<br><br>
</div>