added a helper function index_hospital.R and have rankhospital.R working but needs some refinement