Create best.R

First Draft