Update R code

Creating the code to select the Hospital