Update optMHaic.R