completed rankhospital.R except a bug in worst
fixed the worst bug