add blr_fit.R to BayesLogit