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)/gamma(n1/2))^2)/2-1-a_g
}
xm<-solve(a_s)
 
Can anyone help me out. Thanks in advance for your help.

Shant


      
	[[alternative HTML version deleted]]

