Create Function to Rank and Pull Best and Worst

From R Programming