change BLR_fit.R