Completed best.R