Create best2.R