Update and rename best.R to code.R

Programming Assignment 2 functions