<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">CMR.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br><span style="font-family:courier new,monospace">ht <- hist(precip); rug(precip)<br>str(ht)<br><br>apropos("weight")<br>weighted.mean(x=ht$mids, w=ht$counts)<br>mean(precip)<br></span><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">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.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br>À disposição.<br>Walmes.<br><br></div>​</div>