Finished best.R