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>