complete originBM.R