<p>Vc passou os valores de n ao usar integrate.</p>
<p>- from a mobile device</p>
<div class="gmail_quote">On 21 Jun 2011 23:42, "Cristiano Strieder" <<a href="mailto:cstrieder@gmail.com">cstrieder@gmail.com</a>> wrote:<br type="attribution">> Qndo chamo a função,mesmo sem pasar o valor de "n", ela executa<br>
> normalmente. Porque? E debugando observo que "n" é um vetor de 15<br>> posições. Como "n" adquire esse valor?<br>> <br>> dsad <- Vectorize(FUN=<br>>                   function(y,a,lambda){<br>
>                     poi <- function(y,n){<br>>                       w <- y*log(a*n)-lfactorial(y)-a*n<br>>                       exp(w)<br>>                     }<br>>                     f1 <- function(n){<br>
>                       dexp(n,rate=lambda) * poi(y,n)<br>>                     }<br>>                     integrate(f1,0,Inf)$value<br>>                   },<br>>                   "y")<br>> dsad(1,0.1,0.1)<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">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">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>