Segue abaixo uma possível solução: f <- Vectorize(function(x, i) { x <- x + i p1 <- x %/% 10 p2 <- x %% 10 p1 + p2 }, 'i') vi <- c(1,2,5,6) f(vi, 1:9) Att, Rubem ________________________________ De: "andrebvs@bol.com.br" <andrebvs@bol.com.br> Para: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Enviadas: Sábado, 2 de Agosto de 2014 18:03 Assunto: [R-br] Ciclo de um vetor a partir de restrição dada Olá colegas, 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 é: # Vetor Inicial: vi <- c(1,2,5,6) # Vetores resultates: 2,3,6,7 (somando + 1 ao vetor inicial) 3,4,7,8 (somando + 1 ao vetor anterior) 4,5,8,9 (somando + 1 ao vetor anterior) 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) 6,7,1,2 7,8,2,3 8,9,3,4 9,1,4,5 1,2,5,6 # observe aqui, que voltei ao vetor inicial, dando a idéia de um ciclo. 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? desde já agradeço! Att. André _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.