Re: [R] Solving the equation using uniroot

On 24-03-2012, at 05:35, Shant Ch wrote: > Hello all, > > I was going to solve (n-m)! * (n-k)! = 0.5 *n! * (n-m-k)! > > for m when values of n and k are provided > > > n1<-c(10,13,18,30,60,100,500) # values of n > > kx<-seq(1,7,1); # values of k > > >

[R] Solving the equation using uniroot

Hello all, I was going to solve (n-m)! * (n-k)! = 0.5 *n! * (n-m-k)! for m when values of n and k are provided n1<-c(10,13,18,30,60,100,500)         # values of n kx<-seq(1,7,1);   # values of k slv2<-lapply(n1,function(n){    slv1<-lapply(kx,function(k){