R function for "A note on ‘good starting values’ in numerical optimisation"