modified HospitalComparison.R;finished;needs comments