Programming asignment 2 #1 best.R