<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div class=""><span class="">Segue abaixo uma possível solução:<br></span></div><div style="color: rgb(0, 0, 0); font-size: 13.33px; font-family: "Arial"; background-color: transparent; font-style: normal;" class=""><span class=""><br class=""></span></div><div class="" style="color: rgb(0, 0, 0); font-size: 13.33px; font-family: "Arial"; background-color: transparent; font-style: normal;"><span class="">f <- Vectorize(function(x, i) {<br class=""> <font face="Courier New, courier, monaco, monospace, sans-serif"> </font>x <- x + i<br class=""> p1 <- x %/% 10<br class=""> p2 <- x %% 10<br class=""> p1 + p2<br class="">}, 'i')<br class=""><br class="">vi <- c(1,2,5,6) <br class="">f(vi, 1:9)<br
class=""></span></div><div class=""><br></div><div style="color: rgb(0, 0, 0); font-size: 13.33px; font-family: "Arial"; background-color: transparent; font-style: normal;" class="">Att,<br class=""></div><div style="color: rgb(0, 0, 0); font-size: 13.33px; font-family: "Arial"; background-color: transparent; font-style: normal;" class="">Rubem</div> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 10pt;" class=""> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 12pt;" class=""> <div dir="ltr" class=""> <hr size="1" class=""> <font size="2" face="Arial" class=""> <b class=""><span style="font-weight:bold;" class="">De:</span></b> "andrebvs@bol.com.br" <andrebvs@bol.com.br><br class=""> <b class=""><span style="font-weight: bold;" class="">Para:</span></b> "r-br@listas.c3sl.ufpr.br"
<r-br@listas.c3sl.ufpr.br> <br class=""> <b class=""><span style="font-weight: bold;" class="">Enviadas:</span></b> Sábado, 2 de Agosto de 2014 18:03<br class=""> <b class=""><span style="font-weight: bold;" class="">Assunto:</span></b> [R-br] Ciclo de um vetor a partir de restrição dada<br class=""> </font> </div> <div class=""><br class=""><div id="yiv0591543896" class=""><div class="">Olá colegas, <br class=""><br class="">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 class=""> </div>
<div class=""><b class=""># Vetor Inicial:</b></div>
<div class=""> </div>
<div class=""> vi <- c(1,2,5,6) </div>
<div class=""> </div>
<div class=""><b class=""># Vetores resultates: </b></div>
<div class=""> </div>
<div class=""> 2,3,6,7 (somando + 1 ao vetor inicial)</div>
<div class=""> 3,4,7,8 (somando + 1 ao vetor anterior)</div>
<div class=""> 4,5,8,9 (somando + 1 ao vetor anterior)</div>
<div class=""> 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 class=""> 6,7,1,2</div>
<div class=""> 7,8,2,3</div>
<div class=""> 8,9,3,4</div>
<div class=""> 9,1,4,5</div>
<div class=""> 1,2,5,6 <i class=""># observe aqui, que voltei ao vetor inicial, dando a idéia de um ciclo.</i></div>
<div class=""> </div>
<div class="">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 class=""><br class="">desde já agradeço!<br class=""><br class="">Att.<br class="">André</div></div><br class="">_______________________________________________<br class="">R-br mailing list<br class=""><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" class="" href="">R-br@listas.c3sl.ufpr.br</a><br class=""><a target="_blank" class="" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br class="">Leia o guia de postagem (<a target="_blank" class="" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br class=""><br class=""></div> </div> </div> </div></body></html>