<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div><span>Caro Luis Ivan,</span></div><div style="color: rgb(0, 0, 0); font-size: 13.600000381469727px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 13.600000381469727px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;">Sua ajuda foi muito importante para meu trabalho. Muito obrigado.</div><div></div><div> </div><div><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font></div><div class="yahoo_quoted" style="display: block;"> <br> <br> <div style="font-family: HelveticaNeue, 'Helvetica Neue',
 Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> On Tuesday, October 29, 2013 2:08 AM, Luis Iván Ortiz Valencia <liov2067@gmail.com> wrote:<br> </font> </div>  <div class="y_msg_container"><div id="yiv8239849640"><div dir="ltr">x[which(diff(x>0)==-1)+1]<br></div><div class="yiv8239849640gmail_extra"><br><br><div class="yiv8239849640gmail_quote">Em 28 de outubro de 2013 15:59, Paulo Justiniano <span dir="ltr"><<a rel="nofollow" ymailto="mailto:paulojus@leg.ufpr.br" target="_blank" href="mailto:paulojus@leg.ufpr.br">paulojus@leg.ufpr.br</a>></span> escreveu:<br>
<blockquote class="yiv8239849640gmail_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="yiv8239849640HOEnZb"><div class="yiv8239849640h5"><br>
<br>
<br>
<br>
<br>
On Mon, 28 Oct 2013, Alisson Lucrecio wrote:<br>
<br>
<blockquote class="yiv8239849640gmail_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 rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">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></div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br></div>  </div> </div>  </div> </div></body></html>