Programming Assignment 3 Best.R