<div dir="ltr">André,<div><br></div><div>basta ver quantas vezes a diferença entre 2 números seguidos (diff(vetor)) é diferente de 0 e somar 1 (por causa da 1a sequencia)</div><div><br></div><div>a <- scan()</div>
<div><span style="font-family:arial,sans-serif;font-size:13px">1 1 0 0 0 0 0 0 1 1 1 0 1 1 0 1 0 1 1 1 1 1 0 1 1 1 0 0 0 1 0 1 1 0 1 0 0 0 0 0 0 0 0</span><br></div><div><span style="font-family:arial,sans-serif;font-size:13px"><br>

</span></div><div>sum(diff(a) != 0) +1<br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/2/7  <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>Olá colegas!<br> </div>
<div>Gostaria de saber, como posso contar no R, a quantidade de vezes que uma sequência de numeros aparece, por exemplo:<br><br>Seja a sequência de zeros e uns abaixo:</div>
<div> </div>
<div>1 1 0 0 0 0 0 0 1 1 1 0 1 1 0 1 0 1 1 1 1 1 0 1 1 1 0 0 0 1 0 1 1 0 1 0 0 0 0 0 0 0 0<br>__  _________ ____ _  __ _ _ _ ________ _ ____ ____ _  _ __ _ _ _____________</div>
<div>1          1          1   1   1  1 1 1       1      1   1      1    1  1  1 1 1           1</div>
<div> </div>
<div> </div>
<div>assim, somando os números abaixo tem-se como resultado: 18.</div>
<div> </div>
<div>Então, como posso fazer essa soma no R sem precisar está olhando os números seguidos numa determinada sequência?<br><br>desde já agradeço!<br><br><em>Att.</em></div>
<div><em>André</em></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></div>