Paulo,

 

só uma última dúvida, eu tenho como nomear os quartis, para que 0.25 seja Q1 e o 0.75 seja Q3? Eu coloquei no código

 

abcz = by(abc, abc$codigo, function(x) quantile(rep(x$valor, x$ponderador), prob=c(Q1=0.25, Q3=0.75))), porém ele continou

 

gerando os resultados como 0.25 e 0.75.

 

Eu usei o código que você indicou "as.data.frame(t(...))", com isso a minha variável codigo, passou a ser o rownames, como eu

 

faço para torná-la uma variável de nome codigo, pois vou precisar, depois de calculado esses quartis, juntar com o arquivo

 

de dados, por codigo. Tentei utilizar merge(abc, qrt, by.abc = "codigo", by.qrt = row.names, all.abc = TRUE), porém o resultado

 

disso, não ficou ok, pois misturou valores de um codigo com o outro.

 

               Obrigado,
 
               Carlos Mendonça.