f2 nao ta definida como função (olha como tu definiu f e f1 e compara com f2)<div><br></div><div><br></div><div>[]'s<br><br><div class="gmail_quote">2011/8/30 . . <span dir="ltr"><<a href="mailto:xkziloj@gmail.com">xkziloj@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Olá pessoal,<br>
<br>
ao rodar a função abaixo, obtenho o erro<br>
<br>
Error in f(x, ...) : could not find function "f2"<br>
<br>
...mas f2 está definida logo acima de f...<br>
<br>
Alguma dica?<br>
<br>
Obrigado.<br>
<br>
func <- Vectorize(FUN=<br>
  function(y, frac, rate, sad, samp="Poisson", trunc=0, ...){<br>
                f0 <- function(y,frac,n) {<br>
                        f1 <- function(y,frac,n){<br>
                                dpois(y,frac*n)<br>
                        }<br>
                        dcom <- paste("d",deparse(substitute(sad)),sep="")<br>
                        dots <- c(<a href="http://as.name" target="_blank">as.name</a>("n"),list(...))<br>
                        f2 <- call(dcom,dots)<br>
                        f <- function(n){<br>
                                f1(y,frac,n)*f2(n)<br>
                        }<br>
                        myintegrate <- function() {<br>
                                r <- 0<br>
                                r1 <- 1<br>
                                x1 <- 0<br>
                                dx <- 20<br>
                                while(r1 > 10e-500) {<br>
                                        r1 <- integrate(f,x1,x1+dx)$value<br>
                                        r <- r + r1<br>
                                        x1 <- x1 + dx<br>
                                }<br>
                                integrate(f,x1,Inf)$valu<br>
                        }<br>
                        myintegrate()<br>
                }<br>
                f0(y,frac,n)/(1-f0(trunc,frac,n))<br>
        },"y")<br>
<br>
func(10, 0.1, 0.1, exp)<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>
<font color="#888888">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>
</font></blockquote></div><br></div>