ms.control(maxiter = 50, tolerance, maxfcalls = 200, rel.tolerance, f.tolerance, failure = 1, scale, minscale, trace = F, flags, opt.parameters)
Chambers, J. M., and Hastie, T. J. (eds) (1990). Statistical Models in S, Chapter 10, "Nonlinear Models", Pacific Grove, CA.
lprob <- function(lp)log(1+ exp(lp)) - lp # log-likelihood fit.alpha <- ms(~ lprob(D * alpha), pingpong, control = list(maxiter = 10, tol = .001))