Create best.R