R help - Aug 2011 - Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

Hi all,

Why I am getting,

Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

Thanks in advance!

func <- Vectorize(function(x, a, sad, trunc=0, ...) {
  result <- function(x) {
    f1 <- function(n) {
      dcom <- paste("d", deparse(substitute(sad)),
sep="")
    	dots <- c(as.name("n"), list(...))
			f <- do.call(dcom, dots)
      g <- dpois(x,a*n)
      f * g
    }
    integrate(f1, 0, Inf)$value
  }
  return(result(x) / (1 - result(trunc)))
}, "x")

func(1, 0.1, exp)

get a 'traceback' at the point of the error to see how deep the stack is
and what is being called.  Also look at the help page for 'options' to
see how to get the browser when an error ocurs; this is under 'error' on
the help page.  also lookup debugging under R so that you can do this yourself.

the error indicates you have probably an infinite recursive call that you have
to track down.

Sent from my iPad

On Aug 30, 2011, at 22:08, ". ." <xkziloj at gmail.com> wrote:
> Hi all,
> 
> Why I am getting,
> 
> Error: evaluation nested too deeply: infinite recursion /
options(expressions=)?
> 
> Thanks in advance!
> 
> func <- Vectorize(function(x, a, sad, trunc=0, ...) {
>  result <- function(x) {
>    f1 <- function(n) {
>      dcom <- paste("d", deparse(substitute(sad)),
sep="")
>        dots <- c(as.name("n"), list(...))
>            f <- do.call(dcom, dots)
>      g <- dpois(x,a*n)
>      f * g
>    }
>    integrate(f1, 0, Inf)$value
>  }
>  return(result(x) / (1 - result(trunc)))
> }, "x")
> 
> func(1, 0.1, exp)
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

. . 


-- .- -.-- -... .   ... --- -- .   
.-. . .--. .-. --- -.. ..- -.-. .- -... .-.. .   -.-. --- -.. .   
.-- --- ..- .-.. -..   .... . .-.. .--.   ..- ...   .- -. ... .-- . .-.   
-.-- --- ..- .-.   --.- ..- . ... - .. --- -.   ... - --- .--.

.- .--. --- .-.. --- --. .. . ...   ..-. --- .-.   -- -.--   
.-. ..- ... - -.--   -- --- .-. ... .   -.-. --- -.. .   ... - --- .--.




On Tue, 30-Aug-2011 at 11:08PM -0300, . . wrote:

|> Hi all,
|> 
|> Why I am getting,
|> 
|> Error: evaluation nested too deeply: infinite recursion /
options(expressions=)?
|> 
|> Thanks in advance!
|> 
|> func <- Vectorize(function(x, a, sad, trunc=0, ...) {
|>   result <- function(x) {
|>     f1 <- function(n) {
|>       dcom <- paste("d", deparse(substitute(sad)),
sep="")
|>     	dots <- c(as.name("n"), list(...))
|> 			f <- do.call(dcom, dots)
|>       g <- dpois(x,a*n)
|>       f * g
|>     }
|>     integrate(f1, 0, Inf)$value
|>   }
|>   return(result(x) / (1 - result(trunc)))
|> }, "x")
|> 
|> func(1, 0.1, exp)
|> 
|> ______________________________________________
|> R-help at r-project.org mailing list
|> https://stat.ethz.ch/mailman/listinfo/r-help
|> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
|> and provide commented, minimal, self-contained, reproducible code.

-- 
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.   
   ___    Patrick Connolly   
 {~._.~}                   Great minds discuss ideas    
 _( Y )_  	         Average minds discuss events 
(:_~*~_:)                  Small minds discuss people  
 (_)-(_)  	                      ..... Eleanor Roosevelt
	  
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.