<div dir="ltr">Prezado(a)s colegas da lista,<div><br></div><div>Peço a vossa ajuda nessa questão. Embora eu já tenha uma solução, gostaria de explorar eventuais alternativas que evitem o uso do loop for.</div><div><br></div><div>Eu tenho um vetor  de números inteiros v1 com 10 elementos.</div><div><br></div><div>Eu preciso de um código que produza um outro vetor numérico v2, também com 10 elementos, em que:</div><div>- o valor do primeiro elemento seja igual ao valor do primeiro elemento de v1;</div><div>- o valor do segundo elemento seja igual a soma do primeiro e do segundo elemento de v1;</div><div>- o valor do terceiro elemento seja igual a soma do primeiro, do segundo e do terceiro elementos de v1;</div><div>- todos os demais elementos (do 4o ao 10o) sejam iguais a soma dele e dos três elementos imediatamente anteriores a ele.</div><div><br></div><div>Tentei soluções aplicando as funções da familia apply, mas acaba caindo no loop.</div><div><br></div><div>Eu imagino que seja possível uma solução utilizando a função cumsum ou alguma variante que restrinja a soma aos últimos 4 elementos e defina uma regra para a exceção representada pelos 03 primeiros elementos. Qualquer ajuda nessa implementação é muito benvinda.</div><div><br></div><div>Grato pela atenção,</div><div><br></div><div>Código:</div><div><br></div><div>v1 <- c(1,2,3,4,5,6,7,8,9,10)<br>v2 <- numeric(length = length(v1))<br>for (i in seq_along(v1)) {<br>   v2[i] <- ifelse(i < 2, v1[i],<br>                   ifelse(i < 3, v1[i - 1] + v1[i],<br>                     ifelse(i < 4, v1[i - 2] + v1[i - 1] + v1[i], v1[i - 3] + v1[i - 2] + v1[i - 1] + v1[i])))<br>}<br>v2<br>data.frame(v1, v2)<br></div><div><br></div><div>-- <br><div dir="ltr" class="m_-6862721509832971941gmail_signature" data-smartmail="gmail_signature">Paulo Eduardo de Mesquita<br>Disciplina de Infectologia - Faculdade de Medicina  Universidade do Oeste Paulista Presidente Prudente - São Paulo - Brasil<br>telefone: 5518 97718261</div></div></div>