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)*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(5)

Thanks in advance.

Shant



      
	[[alternative HTML version deleted]]

