Create rankhospital.R

Takes 3 parameters(state, outcome, num) Returns hospital name with the 'num'th rank for an outcome for a state.