Update best.R

Finalized best.R