Started best.R part of assignment