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))