CMR.ht <- hist(precip); rug(precip)str(ht)apropos("weight")weighted.mean(x=ht$mids, w=ht$counts)mean(precip)Reforçando que não é aconselhável usar a média a partir dos dados agrupados (ponto médio/frequências) se é possível calcular a média a partir dos valores individuais.À disposição.Walmes._______________________________________________R-br mailing listLeia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.