[R] recursive term

Hi r-users;   I have this values: eign_val - c(137.810447,3.538721,2.995161,1.685670) alp    - 1.6549 ;  lamda - eign_val lamda_m - min(lamda)   First I calculated manually: delta0 - 1 delta1 - alp*delta0*(4-lamda_m*(1/lamda[1]+1/lamda[2]+1/lamda[3]+1/lamda[4]))  delta1 delta2 -

Re: [R] recursive term

you might try the following. Pochhammer_n - function (a,b,c,n) { if(n==0) return(1) return(a*b*Pochhammer_n(a+1, b+1, c+1, n-1)/(c*n)) } hypergeo_sum - function (a,b,c,z,n) { comb_sum - 0 for (i in 0:n) { comb_sum

[R] recursive term

Hi,   I would like to write a function for this formula: F(a,b,c,z)=1+(ab)/(1!c)+ +(a(a+1)b(b+1))/(2!c(c+1))+ +(a(a+1)(a+2)b(b+1)(b+2))/(3!c(c+1)(c+2))+…   I wrote this function but not sure what is not right:   hypergeo_sum - function (a,b,c,z,n) { for (i in 1:n)   { aa - 1+(a*b*z)/c   aa[i] -