suponha que parc e freq tenham a mesma frequencia (no seu caso nao tem, mas acho q foi um erro seu) freq<-rpois(10000,4) parc<-rep(1:length(freq),each=2, length.out=length(freq)) res = tapply(freq, parc, sum) b