modified HospitalComparison.R