<div dir="ltr">Boa tarde colegas!<div><br></div><div>Gostaria de agradece-los pela ajuda!</div><div>Jaildo, adotei a saída sugerida utilizando o pacote "zoo" apesar de ambas terem funcionado da mesma forma.</div><div>Leonardo, não tinham dados faltando no arquivo, com um total de 3205 linhas. Tentei o comando sugerido (cumsum()), mas não consegui sucesso na aplicação dele.</div><div><br></div><div>Mais uma vez, agradeço a todos pelas colaborações!</div><div><br></div><div>Att</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
<br><div class="gmail_quote">Em 7 de março de 2016 10:56, Jaildo Rocha <span dir="ltr"><<a href="mailto:j.vieirarocha@gmail.com" target="_blank">j.vieirarocha@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word">Yuri Duarte,<div><br></div><div>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><br></div><div><div>require(zoo)</div><div><br></div><div>##</div><div># Vetor qualquer</div><div>VA <- rnorm(n = 200,mean = 100,sd = 1)</div><div># Soma móvel de quarenta valores </div><div>MovingSum <- rollsum(VA,40)</div></div><div>##</div><div><br></div><div>Caso seja de sua preferência realizar a soma com o loop mesmo:</div><div><br></div><div>##</div><div><div># Soma loop</div><div># quantidade de valores a serem somados</div><div>janela <- 40</div><div><br></div><div># Criação do vetor de resultados</div><div>Msum <- c()</div><div> </div><div>for(i in 1:(length(VA)-janela+1)){</div><div> # vetor com os valores de interesse</div><div> A <- VA[i:(i+39)]</div><div> Msum[i] <- sum(A)</div><div>}</div><div>##</div></div><div><br></div><div>Espero que ter entendido a sua dúvida e ajudado!</div><div><br></div><div>Att,</div><div><br><div>
<div style="color:rgb(0,0,0);letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;word-wrap:break-word"><div style="word-wrap:break-word">-------</div><div style="word-wrap:break-word">Jaildo Rocha <br>Mestrando pelo Programa Pós Graduação em Saneamento Meio Ambiente e Recursos Hídricos – UFMG<br><br></div></div>
</div>
<br><div><blockquote type="cite"><div><div class="h5"><div>Em 07/03/2016, à(s) 08:41, Yury Duarte <<a href="mailto:yurynepomuceno@gmail.com" target="_blank">yurynepomuceno@gmail.com</a>> escreveu:</div><br></div></div><div><div><div class="h5"><div dir="ltr">Bom dia colegas de R!<div><br></div><div>Preciso somar uma serie de dados com tamanho definido igual a "a" repetições.</div><div>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><br></div><div>Usando a estrutura básica da função soma fora do comando for não tive problemas:</div><div>sum(Nasa$PP.Liquida[1:140])<br></div><div><br></div><div>Quando tentei aplicar esse formato no comando for não consegui ter sucesso:</div><div><div>PP = for(i in Nasa$PP.Liquida){</div><div> sum(Nasa$PP.Liquida[i:(i+139)])</div><div>} </div></div><div><br></div><div>Acredito que possa ser um problema de entendimento conceitual do funcionamento desse comando.</div><div>Alguém poderia me ajudar nessa questão?</div><div><br></div><div>Desde já, agradeço a todos pelo apoio!</div><div><br></div><div>Att</div><div><br clear="all"><div><div><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
</div></div></div></div><span class="">
_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><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.</span></div></blockquote></div><br></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>