Programming Assignment 3 - best.R