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]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
