Create optHBaic.R