Update init_binarymodelflow.R