add best.R file