modify best.R