Added blr_fit.R