<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><span>Utilize a library fdth para estatísticas descritivas. É uma excelente biblioteca. Baixe o pdf do library para maiores detalhes.</span></div><div><br><span></span></div><div><span>library(fdth)</span></div><div><span>x <- rnorm(1e5, mean=5, sd=1)<br>plot(fdt(x, k=100), type='d', col=heat.colors(100))<br>curve(dnorm(x, mean=5, sd=1), col='darkgreen', add=TRUE, lwd=2)<br>legend(par('usr')[1],par('usr')[4]-0.1,'Valores observados',pch=1,bty='n',col=heat.colors(100))<br>legend(par('usr')[1],par('usr')[4]-0.15,'Valores estimados',lty=1,bty='n',col='darkgreen') <br></span></div><div><br><span></span></div><div>Como já exposto por Lucas, consulte o help da função legend para maiores detalhes!</div><div><br></div><div>(S,f,P)</div><div>Allaman<br><span></span></div><div> </div><div style="background-color: transparent;"
 align="center"><font style="background-color: transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="text-align: left; background-color: transparent;" align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\begin{signature}</font></font></div><div style="text-align: left; background-color: transparent;" align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2"><<>>=</font></font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual
 de Santa Cruz</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5076</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="text-align: left; background-color: transparent;" align="center"><font
 style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">@</font></font></div><div style="text-align: left; background-color: transparent;" align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\end{signature}</font></font></div></div></body></html>