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 <- (alp/2)*(d
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_su
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] <
3 matches
Mail list logo