Initial commit
Moved best function to its own R file