rank all hospitals r script