<div>Certinho Éder, muito grato pela contribuição ;)<br /><br />Att.<br />André</div>
<hr style="border-top: 1px solid #ccc;" />
<div><br /><strong>De:</strong> comunello.eder@gmail.com<br /><strong>Enviada:</strong> Quarta-feira, 6 de Agosto de 2014 16:49<br /><strong>Para:</strong> r-br@listas.c3sl.ufpr.br<br /><strong>Assunto:</strong> [R-br] Ciclo de um vetor a partir de restrição dada<br /><br /></div>
<div dir="ltr">
<div>André, boa tarde!</div>
<div> </div>
<div>Não sei se já conseguiu resolver... mas segue mais uma ideia!</div>
<div> </div>
<div><span style="font-family: 'courier new', monospace;">###<code r></span></div>
<div><span style="font-family: 'courier new', monospace;">f <- function(vec, iter, lim) {</span></div>
<div><span style="font-family: 'courier new', monospace;">     # (vec)tor, (iter)ações e (lim)ite superior</span></div>
<div><span style="font-family: 'courier new', monospace;">     print(vec)</span></div>
<div><span style="font-family: 'courier new', monospace;">     for (i in 1:iter) {</span></div>
<div><span style="font-family: 'courier new', monospace;">          vec  = vec+1</span></div>
<div><span style="font-family: 'courier new', monospace;">          over = which(vec>=lim)</span></div>
<div><span style="font-family: 'courier new', monospace;">          vec[over] <- vec[over]-lim</span></div>
<div><span style="font-family: 'courier new', monospace;">          print(vec)}}</span></div>
<div><span style="font-family: 'courier new', monospace;"> </span></div>
<div><span style="font-family: 'courier new', monospace;">x1 <- c(1,2,5,6)</span></div>
<div><span style="font-family: 'courier new', monospace;">x2 <- c(0,1,5,6,9,12,15,16,18,19) </span></div>
<div><span style="font-family: 'courier new', monospace;">f(x1, 10, 10)</span></div>
<div><span style="font-family: 'courier new', monospace;">f(x1, 12, 8)</span></div>
<div><span style="font-family: 'courier new', monospace;">f(x2, 20, 20)</span></div>
<div><span style="font-family: 'courier new', monospace;">###</code></span></div>
<div class="gmail_extra"><br />
<div>
<div dir="ltr">Éder Comunello <<a href="../../../undefined//compose?to=comunello.eder@gmail.com" target="_blank">c</a><a href="../../../undefined//compose?to=omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br /> Dourados, MS - [22 16.5'S, 54 49'W]</div>
</div>
<br /><br /></div>
</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<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.</div>