Completed Part 2 - best.R