Completed Assignment 3 Part 1

Fully functional best.R script