Displaying 1 result from an estimated 1 matches for "un1".
Did you mean:
un
2012 Mar 24
1
Solving the equation using uniroot
...n(n){
slv1<-lapply(kx,function(k){
lhs<-function(m)
{
fnk<-factorial(n-m)*factorial(n-k)-
0.5*factorial(n-m-k)*factorial(n);
return(fnk);
}
un2<-uniroot(lhs,c(0,n))
un1<-un2$root/n;
return(rbind(un1));
});
rjbk<-data.frame(do.call(cbind,slv1));
return(cbind(n,rjbk));
});
rj<-data.frame(do.call(rbind,slv2));
rj
I used the above code, but I am getting this error, can anyone help me with this.
Error in uniroot(lhs, c(0, n)) : f.uppe...