search for: rjbk

...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.upper = f(upper) is NA In addition: Warning message: In gamma(x + 1)...