Finishing best.R
Adding rankhospital function