Adding best.R

This was the file used for the submission