[R-br] Cada alteração em um vetor sum () em outro

[ASANTOS]

Boa tarde pessoal,

Estou com uma dúvida de programação, onde tenho dois vetores de dados 
onde gostaria de obter a soma do primeiro, a cada alteração do segundo,
tentei fazer:

cont<-rpois(1000,4)####Cria os dados
parc<-rep(1:length(freq),each=2)###Cria um novo vetor
dados<-cbind(freq, parc)
head(dados)

###Aqui gostaria de fazer a soma de cont a cada alteração de parc, 
usando um loop,

  for(i in 1:length(dados))
  ##poderia ate especificar algo como
  dados$parc[i]>parc[i]+1
  ## mas o problema seria fazer a sum() dentro de dados$freq

Alguém teria alguma sugestão,

Obrigado

-- 
Alexandre DOS SANTOS
Engenheiro Florestal, Msc.
Laboratório de Entomologia Florestal
Departamento de Entomologia
Universidade Federal de Lavras
Caixa Postal 3037
37200-000 - Lavras - Minas Gerais - Brasil
Tel: +55 35 92230304