Adding Program Assignment 3 best.R