Create rankhospital.R

The rankhospital function which cleared the testing with the submit script