Create best.R

First in order of creation of three files