<div dir="ltr">Acho que percebi. Convertendo o resultado para carácter o valor não é 1.<div><br></div>as.character(integrate(f=fdp_expweibull,par=c(1,1,1),0,Inf)$value) </div><div class="gmail_extra"><br clear="all"><div>[   ],<br>
Pedro Rafael Diniz Marinho.</div>
<br><br><div class="gmail_quote">Em 5 de julho de 2013 18:00, Pedro Rafael <span dir="ltr"><<a href="mailto:pedro.rafael.marinho@gmail.com" target="_blank">pedro.rafael.marinho@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Pessoal eu tenho uma dúvida. Considere o código abaixo:<div><br></div><div>function(par,x){<br>  beta = par[1]<br>  c = par[2]<br>  a = par[3]<br>  a * beta * c * exp(-(beta*x)^c) * (beta*x)^(c-1) * (1 - exp(-(beta*x)^c))^(a-1)<br>

}<br><br>integrate(f=fdp_expweibull,par=c(1,1,1),0,Inf)$value == 1<div><br></div><div>Porque o resultado é false?</div><div><br></div><div>[   ],<br>Pedro Rafael Diniz Marinho.</div>
</div></div>
</blockquote></div><br></div>