<div dir="ltr">Caros Téo e Walmes,<div><br></div><div>Desculpe a demora na resposta: estava no campo sem web.</div><div>Muito obrigado: ambas as soluções são satisfatórias!</div><div><br></div><div>Ab,</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature">///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\<br>Jose Claudio Faria<br>Estatistica<br>UESC/DCET/Brasil<br>joseclaudio.faria at <a href="http://gmail.com" target="_blank">gmail.com</a><br>Telefones:<br>55(73)3680.5545 - UESC<br>55(73)9966.9100 - VIVO<br>55(73)9100.7351 - TIM<br>55(73)8817.6159 - OI<br>///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\</div></div>
<br><div class="gmail_quote">On Mon, Nov 3, 2014 at 1:32 PM, walmes . <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Agora que pude testar o código, acho que encontrei a causa de falha.<br><br><span style="font-family:courier new,monospace">## Função de densidade: chisq.<span class=""><br>fchisq <- function(x, n)<br>    (1/(2^(n/2)*gamma(n/2)))*x^(n/2-1)*exp(-x/2)<br><br>par(mfrow=c(1, 2))<br>plot(fchisq(x=1:100, n=10))<br>curve(dchisq(x, 10), col='red', lw=2, add=TRUE, n=1e3)<br></span>plot(fchisq(x=seq(0, 50, len=100), n=10))<br>curve(dchisq(x, df=10), col='red', lw=2, add=TRUE, n=1e3)<br><br><b>## Estava sendo usado o INDEX e não o valor de x!!!</b><br><br>x <- seq(0, 50, length.out=101)<br>plot(fchisq(x=x, n=10)~x)<br>curve(dchisq(x, df=10), col='red', lw=2, add=TRUE, n=1e3)<br><br></span>À disposição.<span class="HOEnZb"><font color="#888888"><br>Walmes.<br></font></span></div><span class="HOEnZb"><font color="#888888">​</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>