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, ". ." <xkzi...@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@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.
______________________________________________
R-help@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.
