Qndo chamo a função,mesmo sem pasar o valor de "n", ela executa normalmente. Porque? E debugando observo que "n" é um vetor de 15 posições. Como "n" adquire esse valor? dsad <- Vectorize(FUN= function(y,a,lambda){ poi <- function(y,n){ w <- y*log(a*n)-lfactorial(y)-a*n exp(w) } f1 <- function(n){ dexp(n,rate=lambda) * poi(y,n) } integrate(f1,0,Inf)$value }, "y") dsad(1,0.1,0.1)
Vc passou os valores de n ao usar integrate. - from a mobile device On 21 Jun 2011 23:42, "Cristiano Strieder" <cstrieder@gmail.com> wrote:
Qndo chamo a função,mesmo sem pasar o valor de "n", ela executa normalmente. Porque? E debugando observo que "n" é um vetor de 15 posições. Como "n" adquire esse valor?
dsad <- Vectorize(FUN= function(y,a,lambda){ poi <- function(y,n){ w <- y*log(a*n)-lfactorial(y)-a*n exp(w) } f1 <- function(n){ dexp(n,rate=lambda) * poi(y,n) } integrate(f1,0,Inf)$value }, "y") dsad(1,0.1,0.1) _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
participantes (2)
-
Benilton Carvalho -
Cristiano Strieder