Update best.R

Cleaned up comments and shortened some code