Hi,
I wanted to compute the value of the function ifn at certain values of n. But I
am receiving the following error when I was using the following code(given at
the end).
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
I feel that since the function Grx is recursively related, perhaps making the
code too complicated too handle. Can anyone let me know if there is any other
way to handle this problem?
d1=10.5
Grx<-function(x,r)
{
G0=Grx(x,0)
G0=1;
fu1<-function(t){exp(-t^2/(2*r*(r+1)))*Grx(x,r-1)}
return(integrate(fu1,0,x)$value)
}
grx<-function(x,r)
{
Grx(x,r)*exp(-x^2/(2*(r+1)))
}
ifn<-function(n)
{
w=n*d1/2;S1=0;
for(k in 1:(n-1))
{
S1=S1+choose(n,k)*grx(w,k)*grx(w,n-k-1)
}
return(S1);
}
ifn(7)
Thanks in advance.
Shant
[[alternative HTML version deleted]]
______________________________________________
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.
