<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">Yuri Duarte,<div class=""><br class=""></div><div class="">Apesar de outras soluções possíveis, acredito que a mais simples seja através da função “rollsum” do pacote “zoo”, como neste exemplo:</div><div class=""><br class=""></div><div class=""><div class="">require(zoo)</div><div class=""><br class=""></div><div class="">##</div><div class=""># Vetor qualquer</div><div class="">VA <- rnorm(n = 200,mean = 100,sd = 1)</div><div class=""># Soma móvel de quarenta valores </div><div class="">MovingSum <- rollsum(VA,40)</div></div><div class="">##</div><div class=""><br class=""></div><div class="">Caso seja de sua preferência realizar a soma com o loop mesmo:</div><div class=""><br class=""></div><div class="">##</div><div class=""><div class=""># Soma loop</div><div class=""># quantidade de valores a serem somados</div><div class="">janela <- 40</div><div class=""><br class=""></div><div class=""># Criação do vetor de resultados</div><div class="">Msum <- c()</div><div class=""> </div><div class="">for(i in 1:(length(VA)-janela+1)){</div><div class=""> # vetor com os valores de interesse</div><div class=""> A <- VA[i:(i+39)]</div><div class=""> Msum[i] <- sum(A)</div><div class="">}</div><div class="">##</div></div><div class=""><br class=""></div><div class="">Espero que ter entendido a sua dúvida e ajudado!</div><div class=""><br class=""></div><div class="">Att,</div><div class=""><br class=""><div apple-content-edited="true" class="">
<div style="color: rgb(0, 0, 0); letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">-------</div><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">Jaildo Rocha <br class="">Mestrando pelo Programa Pós Graduação em Saneamento Meio Ambiente e Recursos Hídricos – UFMG<br class=""><br class=""></div></div>
</div>
<br class=""><div><blockquote type="cite" class=""><div class="">Em 07/03/2016, à(s) 08:41, Yury Duarte <<a href="mailto:yurynepomuceno@gmail.com" class="">yurynepomuceno@gmail.com</a>> escreveu:</div><br class="Apple-interchange-newline"><div class=""><div dir="ltr" class="">Bom dia colegas de R!<div class=""><br class=""></div><div class="">Preciso somar uma serie de dados com tamanho definido igual a "a" repetições.</div><div class="">Tentei usar o comando for() para realizar essa tarefa e somar os valores de x1 até xa; x2 até x(a+1) e assim sucessivamente até xn.</div><div class=""><br class=""></div><div class="">Usando a estrutura básica da função soma fora do comando for não tive problemas:</div><div class="">sum(Nasa$PP.Liquida[1:140])<br class=""></div><div class=""><br class=""></div><div class="">Quando tentei aplicar esse formato no comando for não consegui ter sucesso:</div><div class=""><div class="">PP = for(i in Nasa$PP.Liquida){</div><div class=""> sum(Nasa$PP.Liquida[i:(i+139)])</div><div class="">} </div></div><div class=""><br class=""></div><div class="">Acredito que possa ser um problema de entendimento conceitual do funcionamento desse comando.</div><div class="">Alguém poderia me ajudar nessa questão?</div><div class=""><br class=""></div><div class="">Desde já, agradeço a todos pelo apoio!</div><div class=""><br class=""></div><div class="">Att</div><div class=""><br clear="all" class=""><div class=""><div class="gmail_signature"><div dir="ltr" class=""><div class="">Yury Duarte<br class=""></div>Engenheiro Agrônomo - ESALQ/USP<br class=""></div></div></div>
</div></div>
_______________________________________________<br class="">R-br mailing list<br class=""><a href="mailto:R-br@listas.c3sl.ufpr.br" class="">R-br@listas.c3sl.ufpr.br</a><br class="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br class="">Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></div><br class=""></div></body></html>