Yuri Duarte,

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:

require(zoo)

##
# Vetor qualquer
VA        <- rnorm(n = 200,mean = 100,sd = 1)
# Soma móvel de quarenta valores  
MovingSum <- rollsum(VA,40)
##

Caso seja de sua preferência realizar a soma com o loop mesmo:

##
# Soma loop
# quantidade de valores a serem somados
janela <- 40

# Criação do vetor de resultados
Msum <- c()
  
for(i in 1:(length(VA)-janela+1)){
  # vetor com os valores de interesse
  A <- VA[i:(i+39)]
  Msum[i] <- sum(A)
}
##

Espero que ter entendido a sua dúvida e  ajudado!

Att,

-------
Jaildo Rocha 
Mestrando pelo Programa Pós Graduação em Saneamento Meio Ambiente e Recursos  Hídricos –  UFMG


Em 07/03/2016, à(s) 08:41, Yury Duarte <yurynepomuceno@gmail.com> escreveu:

Bom dia colegas de R!

Preciso somar uma serie de dados com tamanho definido igual a "a" repetições.
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.

Usando a estrutura básica da função soma fora do comando for não tive problemas:
sum(Nasa$PP.Liquida[1:140])

Quando tentei aplicar esse formato no comando for não consegui ter sucesso:
PP = for(i in Nasa$PP.Liquida){
  sum(Nasa$PP.Liquida[i:(i+139)])
} 

Acredito que possa ser um problema de entendimento conceitual do funcionamento desse comando.
Alguém poderia me ajudar nessa questão?

Desde já, agradeço a todos pelo apoio!

Att

Yury Duarte
Engenheiro Agrônomo - ESALQ/USP
_______________________________________________
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.