Update rankhospital.R

Placing correct code in file