Update R code - Part #3

Going to start with the code from Best.R.  I think i can scale from this code and won't be too difficult.