Update optHBaic.R