Update rankall.R

Reverted some changes. Moved rankhospitals <- vector() , rankstates <- vector() declarations to top of function