Update best.R

Major changes. Ditched all earlier approaches