Re: [R] Solving equations involving gamma functions

2010-09-24 Thread Berend Hasselman
Shant Ch wrote: > > Hi, > > I want to find a value of n1. I used the following code but I am getting > the > error - > > > Error in as.vector(x, mode) : > cannot coerce type 'closure' to vector of type 'any' > > > n=10 > a_g<-(1/(n*(n-1)))*((pi/3)*(n+1)+(2*sqrt(3)*(n-2))-4*n+6) > > a_

[R] Solving equations involving gamma functions

2010-09-23 Thread Shant Ch
Hi, I want to find a value of n1. I used the following code but I am getting the error - Error in as.vector(x, mode) : cannot coerce type 'closure' to vector of type 'any' n=10 a_g<-(1/(n*(n-1)))*((pi/3)*(n+1)+(2*sqrt(3)*(n-2))-4*n+6) a_s<-function(n1) { t1=(n1-1)/2; (t1*(gamma(t1)/g