search for: tp19425959p19425959

...i]+14^a[i]-14^a[i])) -exp(-lambda1*(10^a[i])-lambda2[i]*(14^a[i]-10^a[i]+18^a[i]-14^a[i]))) logl[i]<-log(s1_f1[i]*s2_f2[i]) return(-logl[i])} optim(1,L) alpha[i]<-optim(1,L)$par } alpha -- View this message in context: http://www.nabble.com/Loop-for-the-convergence-of-shape-parameter-tp19425959p19425959.html Sent from the R help mailing list archive at Nabble.com.