<div> </div>
<div>Obrigado Rubem, mas tentei com um vetor maior (vi) com outra restrição, ou seja, maior ou igual a 20, e não consegui retornar ao vetor inicial (0,1,5,6,9,12,15,16,18,19), conforme está abaixo: </div>
<div><br />
<div> </div>
<div> f <- Vectorize(function(x, i) </div>
<div> {</div>
<div> x <- x + i</div>
<div> p1 <- x %% 20</div>
<div> p2 <- x %/% 20</div>
<div> p1 + p2</div>
<div> }, 'i')</div>
<div> </div>
<div> vi <- c(0,1,5,6,9,12,15,16,18,19) </div>
<div> f(vi, 1:9)</div>
<div> </div>
<div> </div>
</div>
<div><br /><br /></div>
<hr style="border-top: 1px solid #ccc;" />
<div><br /><strong>De:</strong> rubem_ceratti@yahoo.com.br<br /><strong>Enviada:</strong> Domingo, 3 de Agosto de 2014 06:33<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 style="color: #000; background-color: #fff; font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 10pt;">
<div><span>Segue abaixo uma possível solução:<br /></span></div>
<div style="color: #000000; font-size: 13.33px; font-family: 'Arial'; background-color: transparent; font-style: normal;"><span> </span></div>
<div style="color: #000000; font-size: 13.33px; font-family: 'Arial'; background-color: transparent; font-style: normal;"><span>f <- Vectorize(function(x, i) {<br /> <span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif;"> </span>x <- x + i<br /> p1 <- x %/% 10<br /> p2 <- x %% 10<br /> p1 + p2<br />}, 'i')<br /><br />vi <- c(1,2,5,6) <br />f(vi, 1:9)<br /></span></div>
<div> </div>
<div style="color: #000000; font-size: 13.33px; font-family: 'Arial'; background-color: transparent; font-style: normal;">Att,</div>
<div style="color: #000000; font-size: 13.33px; font-family: 'Arial'; background-color: transparent; font-style: normal;">Rubem</div>
<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"><hr size="1" /><span style="font-family: Arial; font-size: small;"> <strong><span style="font-weight: bold;">De:</span></strong> "andrebvs@bol.com.br" <andrebvs@bol.com.br><br /> <strong><span style="font-weight: bold;">Para:</span></strong> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> <br /> <strong><span style="font-weight: bold;">Enviadas:</span></strong> Sábado, 2 de Agosto de 2014 18:03<br /> <strong><span style="font-weight: bold;">Assunto:</span></strong> [R-br] Ciclo de um vetor a partir de restrição dada<br /> </span></div>
<div><br />
<div id="yiv0591543896">
<div>Olá colegas, <br /><br />Gostaria de saber como fazer uma função no R, de modo que, quando eu some o valor 1 a um dado vetor inicial, o vetor seguinte seja um vetor resultante da soma do vetor inicial + 1, porém, com a restrição de que: se o último valor desse vetor resultante for igual ou superior ao valor 10, que este retorne para o valor inicial do vetor. Como exemplo, a idéia é:</div>
<div> </div>
<div><strong># Vetor Inicial:</strong></div>
<div> </div>
<div> vi <- c(1,2,5,6) </div>
<div> </div>
<div><strong># Vetores resultates: </strong></div>
<div> </div>
<div> 2,3,6,7 (somando + 1 ao vetor inicial)</div>
<div> 3,4,7,8 (somando + 1 ao vetor anterior)</div>
<div> 4,5,8,9 (somando + 1 ao vetor anterior)</div>
<div> 5,6,9,1 (somando + 1 ao vetor anterior, neste caso, como iria ser 10 o último valor, volta-se para o valor inicial de vi, e assim por diante)</div>
<div> 6,7,1,2</div>
<div> 7,8,2,3</div>
<div> 8,9,3,4</div>
<div> 9,1,4,5</div>
<div> 1,2,5,6 <em># observe aqui, que voltei ao vetor inicial, dando a idéia de um ciclo.</em></div>
<div> </div>
<div>Então, como faço uma função no R, de forma que eu tenha todos os vetores resultantes a partir de um vetor inicial dado?<br /><br />desde já agradeço!<br /><br />Att.<br />André</div>
</div>
<br />_______________________________________________<br />R-br mailing list<br /><a href="http://bmail.uol.com.br/compose/" target="_blank">R-br@listas.c3sl.ufpr.br</a><br /><a href="http://bmail.uol.com.br/compose/" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://bmail.uol.com.br/compose/" 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>_______________________________________________<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>